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And I'll bet that you do too! But, your printer isn't an 
Atari printer and since APX closed you have not been able to 
set ny Printer Driver to use with your Atari Writer* Well * 
I'm the author of the Printer Drivers* and because of the 
denand for then# and ny continued interest in Atari and a 
desire to see AtariWriter recognized for the quality product 
that it is* I have begun to sell Printer Drivers directly* 
If you send a cashier ' s check or nones order for $10*00 to 
Me at the address below* I will send you the Printer Driver 
for your printer* and comp lete docunentation in the return 
Mail* Don't try to call Me* My phone nunher is unlisted* 
Please specify which printer you own when you write* 

Currently there are Printer Drivers designed specifically 
to take advantage of features on the fallowing dot Matrix 
and letter quality (l_*Q») printers! 


* ATARI 1020 or 1027 (L.Q.) 
x EPSON MX— 80/100 
x EPSON RX-80/100 
x EPSON FX— 80/100 
x STAR GEMM 10 or 10X 
x STAR RADIX 10/15 
x STAR POCRTYPE (L.Q.) 
x STAR SG,SR,SD - 10/15 
x AXIOM AT - 100 
x AXIOM SLP 
x AXIOM GP550AT 
x COMREX HE 
x H.P. THINKJET (INK) 


* W#£SMAW TfllY 160/180L 
x MANNESMAN TALLY SPIRIT-BO 
x OKIDATA 80*82/83* 81,92/93 
x IDS - 180 MICROPRISM 
x C. ITQH PROWRITER 8510 
x OLYMPIA HP, RO, C0MPACT2 
x PANASONIC 1090/1091/1092/1093 
x LEGEND 880 
x CP - 80 TYPE 1 
x SMITH CORONA TP-1 (L.Q.) 
x SMITH CORONA D-100 
x ROYAL ALPHA 610 (L.Q.) 
x RITEMAN PLUS 


x DIABLO 620 (L.Q.) 
x SILVER REED 100/500/550/770 (L.Q.) 
x BMC PB 101 (L.Q.) 
x BMC BX - 80 
x DTC STYLE WRITER (L.Q.) 
x OLIVETTI PR-2300 <W<) 
x JUKI 6100 (L.Q.) 
x CITIZEN MSP 10/15 
x BROTHER HR-15/25 (L.Q.) 
x BROTHER COHPACTRONIC 58 (L.Q.) 
x BROTHER CORRECTRONIC 50 (L.Q.) 
x BROTHER EXECUTRON 70 (L.Q.) 


And More on the way froM* * * * 

Gary W* Furr 

F-.O* Box 1073 

Mountain View# CA 910AZ 


Please copy and distribute to your friends who own Atari Computers 
Thanks, Gary Furr 
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Editors’ Notes 

by Ron Seymour and Tbm Bennett 


fa-nat-ic adj. (L .fanaticus, of a temple, hence enthusiastic, inspired) 
unreasonably enthusiastic; overly zealous; also fa-nat-i-cal - n. a per- 
son whose extreme zeal, piety, etc. goes beyond what is reasonable; 
zealot. 

We figure we must fall into this definition. It did not seem “overly 
zealous” at the time. As a matter of fact, that Friday evening, December 
21, around 11:45, we found ourselves in ajam. We had finished layout 
for the January issue, only to realize that we were at 15 pages of copy, 
not the 16 required to get the newsletter out. 

“How about an ad for a special edition Journal”, Ron joked. “Why 
not, we have been sort of kicking this around for a while, let’s give 
it a try”, Tbm responded. We did not think that anyone would really 
respond anyway. So we could fill the page, get the January issue 
rolling with the ad being an easy way out. 

Curse that night! 

With the religious fervor of meeting announced deadlines (much 
like our friends at Atari), here it is, the June Special Edition in July. 
(Note it is now the Special Edition, not “June” Special Edition.) 

We were overwhelmed. The enthusiasm in response to our page filler 
was outstanding. From the delivery of “Master Pencil” in its earlier 
form by the Eashs, we knew things were going to roll. We had a number 
of typists come forward and really help make this fly. Jim Hood was 
“volunteered” to do the graphics and many contributed hours to this 
special effort. 

The biggest single delay was the copy editing, copy editing and more 
copy editing. Then we had to repeat the whole process once again 
after typeset. We know we missed a number of things even after all 
our efforts. So, thank you for your understanding of all of our delays. 

Inside we hope you will find the “meatiest” Journal yet. Games, 
utilities, profiles, reviews, insights and hardware are all covered here 
in a way that we have not been able to present to you in the past. 
Hopefully this will be the start of a new concept in user group publica- 
tions. We intend to mail our disk text files to select groups across the 
nation to begin a newsletter file exchange that will both get our club 
out to others and in turn allow us to print other groups’ materials here 
in the Journal. If this exchange concept works, look for top quality 
Journals in the future. 

Thanks go to Jim Hood, Karen Bennett, Tom Tisby, Ron Devine, 
Bill Wilkinson, Atari Corp., all of our contributors and typists. And 
very special thanks go to the spouses and families of all involved with 
the Journal for their patience and understanding. We can not do 
without your continuing support, 

Enjoy 
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BASIC 



by Bill Wilkinson, OSS 

Special to the San Leandro Computer Club Journal 

Hopefully, by now you have all noticed the OSS ads 
for BASIC XE. And if you have, you have read that 
BASIC XE is faster than BASIC XL and, of course, 
much faster than Atari BASIC. Since I was the 
turkey/hero (your choice— the vote’s still being 
counted) who wrote the specifications for the original 
Atari BASIC, and since BASIC A + BASIC XL, and 
BASIC XE are all modifications and extensions of good 
old Atari BASIC, I thought you might be interested 
in finding out how we at OSS can continue to eke more 
performance out of an existing language. In other 
words, stand by for some secrets. 

First of all, I should like to point out that all the OSS 
versions of BASIC really are extensions of Atari BASIC. 
Even in our newest BASIC XE, there are still a few 
hunks of code which are unchanged since the original 
1978 vintage. But other major routines have been 
rewritten from the ground up. And, almost inevitably, 
rewriting a piece of code to make it faster involves 
making it bigger. So Atari BASIC takes up lOK Bytes 
(if you include the floating point routines), BASIC XL 
uses 18K Bytes, and now BASIC XE gobbles fully 28K 
Bytes! Of course, not all those thousands of bytes we 
now use are there just to speed up existing code. We 
do tend to like to add features, also. For example, 
PRINT USING and SORT each use about 1 ,000 bytes. 
(The real trick in BASIC XE was devising a method 
of packing 28K Bytes of code into your computer in 
such a way that the language is compatible with Atari 
BASIC even to the point of giving you the same work- 
ing memory space for your programs! The result: 
BASIC XE won’t work in Atari 400 and 800 computers, 
though it does fine in XL and XE machines. Sorry 
about that.) 

Okay. So now you know that you have to use more 
room for BASIC if you want more speed. But just what 
did OSS spend all that room on? Actually, in the pro- 


cess of trying to leverage BASIC for all the speed we 
could reasonably get, we worked on three major por- 
tions: (1) execute expression, (2) program transfers, 
and (3) floating point math. We are going to talk about 
all those in reverse order. 

FASTER MATH 

BASIC XL had already been given a major overhaul 
on parts 1 and 2, but item 3 is uniquely BASIC XE. 
To be fair, a floating point math speed-up has been 
done before: Newell Industries has been selling the 
FastChip, a replacement for Atari’s Floating Point 
ROM, for years now. But when Charles Marslatt (sorry 
if I spelled that wrong) wrote the code for that chip, 
he was constrained to put all his improvements into 
the space we used originally. In view of this, his 
changes were almost spectacular. With BASIC XE, we 
are and were under no such restraints. Where the en- 
tire math pack of Atari BASIC uses only about 2,500 
bytes, BASIC XE uses over 4,000 bytes for Add/Sub- 
tract/Multiply/Divide alone! 

I don’t have space here to describe everything which 
was done, but I will give one example: In the routine 
to convert a floating point number to an integer, Atari 
BASIC multiplies the integer it has built so far by 10, 
picks up the next digit of the floating point number, 
and adds that digit to the budding integer. That mul- 
tiply by 10 is slow. The process of picking up digits 
one at a time is slow. BASIC XE, on the other hand, 
has a 160 byte translation table which takes pairs of 
digits (i.e,, bytes) from the floating point number and 
converts them (in two machine instructions!) into 
their binary equivalent. And that’s just for the units 
position of the floating point number! Why is this 
speed up important? Because it is used over and over 
again in BASIC. Every place which calls for an integer 
number calls this subroutine. Examples include the 
line number of a GOTO or GOSUB; the address and 
data of a POKE; all the numbers in a SOUND, SET- 
COLOR, PLOT, DRAWTO, OPEN, and many more! 
Changing this one routine alone can speed up many 
Atari BASIC programs by a factor of 10% to 20% ! 
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GETTING THERE FASTER 

One feature of Atari BASIC of which I am especial- 
ly proud is the fact that you can STOP a running pro- 
gram, examine variables, SAVE it to disk, change the 
Program, and still CONTinue right where you left off! 
Almost no other microcomputer BASIC can do this. 
For example, all Microsoft BASICs (yes, even on the 
PC) will not allow you to change your program and 
continue. 

The freedom you enjoy with Atari BASIC is not 
without its price, though. Consider the following: 
When a STOP occurs, we are in a subroutine called 
from a GOSUB. Now you change the program (such 
that the line which contained the GOSUB moves in 
memory) and CONTinue. What happens when 
RETURN wants to do its job? If GOSUB caused BASIC 
to “remember” the address of its line (as does 
Microsoft BASIC), we’re in trouble! So instead Atari 
BASIC and its kin remember the line number where 
the GOSUB is. Neat, right? Yes, but then when we 
RETURN we have to search for that line number. 
S-s-l-l-o-o-o-w! And guess what! FOR/NEXT loops 
work the same way. 

The story doesn’t stop there. One thing Atari BASIC 
and Microsoft BASICs have in common is the way they 
execute GOTO and GOSUB: After they’ve figured out 
which line you want to transfer to (and that can take 
a while. ..remember the floating point to integer con- 
version discussion above?), they always start at the 
beginning of your program and search forward until 
they find your requested line. More s-s-l-l-o-o-o-w. 

So what do BASIC XL and BASIC XE do different- 
ly? Well, if you do nothing, everything works exactly 
as in Atari BASIC (albeit a bit faster because of other 
factors). This is on purpose, for compatibility. How- 
ever, when you use the FAST command, these BASICs 
actually do a pre-compile of your program. All line 
numbers referenced in the program are looked up and 
converted to absolute addresses instead. Then when 
you use GOTO 100, BASIC doesn’t search for line 100 
because it already knows where it is. Fast! 

Of course, we didn’t stop there. BASIC XL and XE 
in FAST mode “remember” the absolute addresses 
of GOSUBs and FORs (and WHILES and CALLS 
and...), so the line number search is not needed when 
a RETURN or NEXT (or ENDWHILE or EXIT) is en- 
countered. Is there a penalty for this speed. Of course: 
You can NOT stop a Program, which is in FAST mode 
and then CONTinue. Period. Still, we don’t think that’s 
too bad, since you can still debug your programs in 
the good old Atari BASIC style and only move to FAST 
mode for the final touches. 

EXPRESS EXPRESSIONS 

Although the new math routines involve the largest 
changes (in terms of sheer code space), the most com- 
plex changes (because of the effects on existing code) 
were those which Steve Lawrow made to one of the 
“master” routines of BASIC: Execute Expression. 
This routine is used by almost every statement and 


function. Any time the syntax of the BASIC language 
allows an expression of any kind, the routine named 
Execute Expression is called. As a simple example, 
consider a statement of the form 

PRINT A + 3 

The expression in that statement is A + 3. With Atari 
BASIC, the execution of it goes something like this: 

1. Fetch the value of A to FRO 

2. Push FRO onto the argument stack 

3. Fetch the value of the constant 3 to FRO 

4. Push FRO onto the argument stack 

5. Pull the top of the argument stack into FRO 

6. Pull the next value on the stack into FR1 

7. Add FRO plus FR1, the result is in FRO 

8. Push the result onto the stack again 

9. Pull the top of argument stack into FRO 

10. Convert and print the value in FRO 

(In the above, “FRO” and “FR1” are the two primary 
floating point “registers’— actually six bytes each in 
zero page.) Got all that? Now watch what BASIC XL 
and XE do: 

1. Fetch the value in A into FRO 

2. Move FRO into FR1 

3. Fetch the value of the constant 3 into FRO 

4. Add FRO plus FR1, the result is in FRO 

5. Convert and print the value in FRO 

A lot shorter and a lot faster. We estimate that, for 
simple expressions (e.g., no multiply or divide), this 
new method saves 30% to 40% of the time used by 
execute expression. 

Now, those of you new to computing may say, “Well 
of course. Why would you ever do it any other way?” 
The answer to that question is complex: first., because 
you have to provide for expressions such as SQR 
(X*X+Y*Y)*SIN(X/2r2 equally as well as provide for 
simple things like A +3. Trying to analyze the kind 
of expression being presented is not a trivial task. 
Second, along the same lines, even after you Figure 
out how to make execute expression faster, you have 
to find room to implement the needed code. The ad- 
ditional space simply isn’t there in the Atari BASIC 
cartridge. (Could Atari BASIC have been made better 
in the space available? Yes, but not as much so as 
BASIC XL and XE have done.) Anyway, this kind of 
optimization is done as a matter of course by com- 
pilers (yes, including ACTION!), but it is seldom done 
as comprehensively as we have done in our expand- 
ed BASICs. 

And that’s about it. Oh, there are many other more 
subtle differences and improvements which we made 
as we built our advanced BASICs. And let’s not forget 
the amount of work which went into getting BASIC 
XE to understand bank-switched cartridges, memory 
under the OS ROMs, memory under the cartridge, and 
(last but definitely not least) 64K of program space 
and over 30K of string/array space. And still be able 
to run with cartridge alone, without using expanded 
memory, in a mode compatible (except for speed) with 
Atari BASIC. That was (and is, even as I write this) a 
job! We hope you will agree with us that the effort was 
worth it. 
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Flitterbug 




Is it possible to explain ACTION! to 
someone completely unfamiliar with it 
and at the same time show a more ex- 
perienced ACTION! hacker how to use 
the routines in FLITTERBUG? I do not 
know, but I am going to try by talking 
about the source code of Flitterbug. If 
you will PLAY with the program for a 
while you will have an easier time with 
my explanations. 

Now take a look at the FLITTERBUG 
code. Despite the seemingly huge varie- 
ty of statements there are only three 
major “structures" to this code: COM- 
MENTS, VARIABLE DECLARATIONS 
(i.e. BYTE BUG_EGGS— meaning, set 
aside one memory location and do to it 
what I say to do to BUG_EGGS, and 
PROCEDURES (subroutines containing 
the actual business of the program 
parcelled out into reusable, task 
specific, modules). 

The top lines of FLITTERBUG are 
comments, followed by MODULE, 
meaning that the following variables 
can be used by any procedure anywhere 
in the program. The three INT variables 
(INT indicates +/- numbers getting two 
memory locations each) are used by 
several procedures and have their values 
set in PROC JOYSHTIKQ so that every 
time PROC JOYSHTIKO is called (run, 
gosubed, JSR ed, executed, etc.) those 
variables are updated reflecting the 
condition of the joystick. Next there are 
fourteen CARD variables (two memory 
locations, all positive numbers), some 
of which have been given initial values. 

Next there are twenty-seven BYTE 
variables (one memory location — all 
positive) some of which have been as- 
signed values and some of which have 
been assigned a memory location (i.e. 
CONSOLE = 53279). This is convenient 
since, now, I can say simply, IF CON- 
SOLE =6 THEN DINGO FI, meaning if 
the START button is pressed execute the 
DING routine. Notice the backwards IF 
indicating the end of that particular set 
of IF testing. Next in the list of FLITTER- 
BUG code is a BYTE ARRAY called 
HARDLINE. It is a list of single memory 
locations used to store a word, sentence, 
or list of numbers giving the shape of 



a player missle or redefined character. 
In this case HARDLINE is used to hold 
and print the different levels of game dif- 
ficulty (EASY, HARD, FAT CHANCE, 
DOCUMENTATION). It is manipulated 
in PROC TITLE(). 

Next in the code is DEFINE 
POP = “[$68 $68]“. DEFINE is a mere 
typing convenience offered by the com- 
piler. It has no intrinsic programming 
value. It simply means, in this case, 
wherever you see the word POP in the 
code, substitute the stuff between the 
quotations. In this case the stuff bet- 
ween the quotes are two machine lan- 
guage instructions [PLA PLA] which 
will remove an address from the stack 
so that we can RETURN (if and when 
one is issued!) to the procedure that 
called PREVIOUS to the last. 

Next in the FLITTERBUG code is, 
finally, a real procedure declaration; 
PROC RE MAIN = ERRORQ. However, it 
does not say here what RE MAIN does, 
it just says that it is found at the same 
place that the ERROR procedure is 
found and that it does not accept any 
data for manipulation. Why would I tell 
the compiler such a rotten lie? Because 
later I will set ERROR equal to the REAL 
address of PROC MAIN() and call for RE- 
MAIN!) which will get us to MAIN in a 
very round about way. This overcomes 
the inability of the compiler to handle 
forward references. 

Next in the code we come to a pro- 
cedure that actually does something. It 
Pulls an address off the stack and jumps 
to the ERROR procedure which now you 
know could be ANYWHERE in the 
program. 

FLITTERBUG, then, consists of a 
long list of procedures, which you and 
I can remove and put into other pro- 
grams having nothing to do with FLIT- 
TERBUGS. So, even if you do not like the 
game FLITTERBUG, any routines 
within the game that you do like are 
yours for a very small effort involving 
almost no typing. 

One way to reuse parts is to 
CTRL/SHIFT DELETE the procedure 
that you want, then do a CTRL/SHIFT 


2 to get into a separate window, then do 
a CTRL/SHIFT P (for put) to put the pro- 
cedure there. Then do a CTRL/SHIFT W 
(for write) to save that procedure to disk 
for later inclusion (with INCLUDE 
“D:FILENAME”) into a different 
program. 

When you fake these routines from 
me and turn them into your own mas- 
terwork, I hope you will publish at least 
some of it in the public domain so that 
we can improve our efforts with some 
of YOUR knowledge and effort. Send the 
code (and PLENTY of explanation) to 
me. I will see that It gets distributed 
widely and that YOU get the proper 
credit. 

Jim Warren 

San Leandro Computer Club 
PO. BOX 1525 

San Leandro, CA 94577-0152 

The very first thing (the first pro- 
cedure executed is always the last one 
in the list) that FLITTERBUG does is to 
copy the character set in ROM into 1UVM 
so that it can be redrawn. You will notice 
that PROC R E LO CAT E _ H A RSE T ( ) 
calls for the execution of POKE_A_ 
CHARQ just before it calls for the execu- 
tion of MAIN() as its last instructron. 

POKE A CHARQ is the second to last 

procedure and is little more than I he list 
of data that comprise the new letters 
and numbers oft he character set. Only 
the lower case letters were redefined. 
The upper case letters are used by 
graphics mode 1 in TITLED and EN- 
DUED and work just fine as is, I drew 
these new letters using the EDITQ pro- 
cedure in this program (the same pro- 
cedure appears in the TOOL KIT demo 
in this special edition). You can draw 
your own character set or redefine just 
one or two letters that I did not do quite 
well enough by using the editing box of 
this game or file one in the TOOL KIT 
DEMO. Just leave one line blank at the 
top and bottom and two “bus” blan k on 
the right. Then write down the data and 
type it in the appropriate part of the 
BYTE ARRAY in POKE_A_CHAR(). 
For a fuller explanation see my TOOL 
KIT DEMO article in this special edition. 

If you want to see why I had to go to 
the trouble to redefine the character set. 
write a little document all in uppercase 
in the first paragraph and all in lower 
case in the second paragraph and save 
it to disk with the name “FLITTERr 
DOC”. Then read that document with 
the FLITTERBUG doc reader (get DOC- 
UMENTATION by pressing OPTION in 
the title screen then press START). You 
will see that the ROM character set 
(upper case letters) just does not appear 
clear in antic mode 4. 
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After the character set is relocated 
and the new data Poked into place the 
main procedure is called and controls 
the flow of the program from now on. 
The main controlling procedure is nam- 
ed, appropriately, PROC MAIN() and is 
little more than a list of procedures in- 
dicating the order of execution of the 
main modules. It in turn, call other 
procedures as needed to get the job 
done. I have tampered with the normal 
procedure calling scheme of ACTION! 
in a couple of procedures with the “RE 
ACTIONARY” methods of forward 
referencing and recursion. For the most 
part, you will see procedures calling for 
procedures which are “above” 
themselves in the list. They can not call 
procedures “below” themselves in the 
list. This is what I mean by forward 
referencing, lb facilitate my “tamper- 
ing” I used address variables to refer to 
the forwardly referenced procedures; 
and the first thing that PROC MAINQ 
does is assign the right address to those 
variables (i.e. ADR_MAIN = MAIN). 

Then TITLEQ is called where the 
player sets the MINIMUM_EGG, TIME, 
BUG_BIRTH__RATE, and variables by 
pushing OPTION. When START is 
pressed in TITLE() a RETURN is issued 
and execution returns to MAINQ where 
SETUPO is next in line. After the return 
from SETUP!), we point ANTIC at our 
custom characters and jump into an in- 
finite (meaning there are no controlling 
statements saying when to stop) DO OD 
loop with five procedures in it which are 
repeatedly executed. 

You can write procedures and have 
them executed anywhere by calling 
them by name where you want them ex- 
ecuted. For example, if you write PROC 
BEFORE_THEY„ARE_HATCHED(), 
and write BEFORE_THEY_ARE_ 
HATCHED!) right after COUNT_ 
EGGSQ in PROC MAINQ, then you will 
have your eggs counted just before they 
are hatched! I would encourage you to 
experiment with FLITTERBUG in just 
this way but, unfortunately, the source 
code is too big to be in memory at the 
same time as the object code. You will 
have to break it up into sections, work- 
ing on one part in memory with the rest 
“INCLUDED” from the disk. I suggest 
that your files be single procedures that 
might also be useful for inclusion into 
other programs. Likely procedures 
within FLITTERBUG for such an “ex- 
cision” are JOYSHTIKQ, ANTIC4Q, 
DOCREADERO, EDITQ&LOOKUPQ, 
POKE_A_CHARQ, and RELOCATE^ 
CHARSETQ. These are all potentially 
reusable “as is” in other programs. 
Sorry the program is not smaller for you 
to play around with but, as usual, I got 
carried away! 


Antic’s 

520ST 

ANTIC PUBLISHING INC., 
COPYRIGHT 1985. 

REPRINTED BY PERMISSION. 

by JACK POWELL 
ANTIC TECHNICAL EDITOR 

Our Atari 520ST just arrived in the 
Antic offices. This is the $5,500 develop- 
ment package, and it includes the com- 
puter, two 3W' disk drives, one 
medium-resolution (640 X 200) RGB 
analog monitor and one mouse. 

The software in the package is the “C” 
compiler, machine language assembler 
and debugger by Digital Research, the 
Mince screen editor by Mark of the 
Unicom, Kermit (a modem protocol pro- 
gram for file transfer), CP/M-68 and, of 
course, GEM which is in ROM in the 
machine. 

On back order, but expected soon, is 
a high-resolution (640 X 400) mono- 
chrome monitor and a ten-megabyte 
hard disk. 

Along with all this came 1000 pages 
of documentation and since it will take 
some time to digest all of this, we 
thought you might like a first impres- 
sion of this new, high-level Atari 
computer. 

The development 520ST is a prelim- 
inary model and there will be some 
changes between now and the time you 
see it in the stores, but all parts of this 
machine were factory made in the same 
manufacturing plants as the final pro- 
duct will be. The only real difference, 
besides the price, is that these machines 
were hand assembled. 

The first thing you notice when tak- 
ing the ST out of its box, is that it is very 
light. Although somewhat larger in size 
than the 800XL, it feels lighter. This 
may be because the shielding has not 
yet been added. 

It looks exactly like the ST on our May 
cover but there are some details you can 
not see from the photograph. On the 
right edge of the machine, to the rear, 
are two joystick ports identical in ap- 
pearance to current Atari joystick ports, 
except they are also used for the mouse. 

On the left edge, rear, opposite the 


joystick ports, is the cartridge slot. This 
will accept a 40-pin board, 20 upper and 
20 lower. 

In back of the computer are various 
switches and ports, each labelled be- 
neath and with an indicating icon etch- 
ed in the plastic above. From left to right 
they are: 

Reset - a small, square button. 

Power - identical to previous Atari 
power switches. 

Power In - 7-pin, male DIN. 

MIDI Out - 5-pin, female DIN. 

MIDI In - same as above. 

Television - RCA, female. 

Channel - mini-switch, labelled “L” 
“H”. 

Monitor - 13-pin, female DIN. 

Printer - female D-25, IBM-PC/Cen- 
tronics compatible. 

Modem - male D-25, IBM compatible. 

Floppy Disk - 14-pin, female DIN. 

Hard Disk - female D-19. 

Besides the standard keyboard and 
ten-key pad, are ten function keys, 
labelled FI to F10. The isolated cursor 
section is particularly well designed 
with the lower three keys representing 
Left, Down and Right, and the Up arrow 
centered above them. On either side of 
the Up key are Insert and Clr/Home. 
The top two keys in the cluster, which 
are enlarged, are Help and Undo. The 
Undo key may become particularly 
useful. 

The drives accept Sony 3 l /2" disks. lb 
boot the machine, first turn on the 
drives and insert both disks before turn- 
ing on the computer. A disk must be in 
a drive for the computer to later access 
that drive. 

When booted, the GEM desktop ap- 
pears as a light green background with 
pale blue border and black-outlined 
icons. In the upper right comer of the 
screen are two disk icons, one over the 
other, that look like file cabinet drawers. 
In the lower right corner of the screen 
is a trash can. 

In the border area, above the upper 
left section of the green background, are 
the words, “DESK FILE VIEW OP- 
TIONS” In the middle of the screen is 
a thin, black arrow-cursor which is mov- 
ed by the mouse. 

We will save details on GEM for later 
articles. And it is fast! It can redraw an 
entire screen of icons in the blink of an 
eye. 

This is just a surface description of an 
exciting new machine. Antic wants to 
get the information out to you as soon 
as possible and we plan to share our ST 
experiences as they happen. Stay tuned 
for further details. 
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CompuServe's 
GEM Conference 


This article contains portions of the 
transcripts of the GEM online confer- 
ence held on May 9, 1984. The confer- 
ence was cohosted by SIG*ATAR1 and 
DR SIG. The featured guests were the 
members of the GEM Development 
Tbam. 


(DRI) Hi and welcome to DR SIG and 
to the GEM CO. On my left is Tim Oren, 
Ibolkit expert, next to him is Gregg Mor- 
ris, Applications expert, John Grant, 
VDI Ace, Scott Raney, all around good 
guy, Dave Mackenzie, GEM Application 
Support. Others are on their way. Tb- 
night we will welcome the Desktop own- 
ers and the soon to be released ATARI 
ST owners. Also a special welcome to 
those veterans who have been working 
with GEM development on the IBM PC. 

(MODERATOR) Besides the new 
ATARI ST what other 68000-based 
machines will GEM be available for (in 
the near future)? 

(DRI) There are no other 68K 
machines that we can comment on at 
this time. 

(Ron Winn) I know very little about 
GEM. As a future ST owner, can you sug- 
gest any good books or manuals to 
study up on GEM ? 

(DRI) Nothing out as yet. Look for 
something this Fall from several pub- 
lishers. 

(Steve Brecher) I am a Mac 

developer. Could you comment on 
whether Porting from the Mac to ST is 
likely to be feasible. (I understand “feasi- 
ble” is undefined, but your thoughts?) 

(DRI) Ok, there are a number of 
possible answers to that. Let me try a 
few. If you have done your job on the 
MAC “cleanly”, that is, done a proper 
“non-moded” modular program in a 
language like C or PASCAL, the port 
should be relatively fast. But, GEM and 


MAC are nowhere near call-for-call com- 
patible, so you need logical separation 
points (shells) around the machine spe- 
cific code. Tb give you some actual feed- 
back, one European developer moved a 
MAC application in about 3 weeks of in- 
tensive effort (that was the time to an 
alpha release) . A number of other devel- 
opers are taking the opportunity to 
translate their programs from MAC Pas- 
cal into C. Obviously, that takes longer. 

(Steve Brecher) Per answer to Ron 
above, understand I can not go out and 
buy a book on GEM internals, but is 
there any way I can learn about such 
porting issues (in some detail) 
currently? 

(DRI) The best way to get answers to 
that would be to purchase the GEM Pro- 
grammer's Tbolkit with or without inter- 
active support. The present Ibolkit is 
available from DRI for $500 with inter- . 
active support on this SIG. The retail 
version will be available soon. 

(MODERATOR) This is the IBM 
Ibolkit only? 

(DRI) At this time it is for IBM only. 
The 68K version for GEM DOS will be 
a little later. 

(Steve Brecher) Without support? 
Does that include a written program- 
mer’s guide? 

(DRI) That does include written pro- 
grammer’s reference manuals and 
sample programs. 

(Steve Brecher) Re GEM/ST do I 
talk to Atari? 

(DRI) Yes. 

(Ron Winn) With an ST out of the 
box, what will GEM do for me? What 
else will I need to get to use GEM in my 
programs? 

(DRI) 1) The ST, as shipped, will in- 
clude the equivalent of our PC Desktop. 
There will also be some other programs 
available from Atari, particularly Logo, 
and, of course, our own GEM stuff will 
be ported. 2) The programming inter- 


face will be very similar to PC GEM, so 
someone could get started now on the 
PC. Atari will release their own toolkit 
but I do not have a date on that and we 
will be doing a “generic” 68K Toolkit. 
(That is, it will not be Atari specific). 

(Ron Winn) Can you get to GEM 
thru Basic or LOGO? 

(DRI) First for GEM LOGO. This will 
include some VDI type primitive such 
as draw circle, fill, and so on. However, 
the first release will not have a binding 
into the AES, that is, it will not let a user 
program open windows and such. As to 
Basic, the question is still open and 
under discussion. How about it, do you 
think people really want to drive win- 
dows from an interpreted language? 

(MODERATOR) Absolutely! Espe- 
cially a useable BASIC. 

(Ron Winn) I do not know for sure. 
Some want to use whatever they have 
Paid for. 

(DRI) More about BASIC. . .What 
are people looking for, MBASIC com- 
patibility? C BASIC? GW BASIC?*? You 
tell us. 

(MODERATOR) That’s tough to 
answer for an ATARI owner. Except for 
a few owners of MS BASIC we have been 
a captive audience of ATARI BASIC. 

(DRI) Pardon my ignorance, but 
what type of BASIC was on the former 
ATARI machines? Was it a Microsoft 
effort? 

(MODERATOR) ATARI 8k BASIC 
was NOT a MS BASIC. It was developed 
by OSS and is similar to a BASIC used 
by the old NORTHSTAR systems. 

(DRI) Hum, well maybe we should 
find a manual for it and take a look. 
Whatever we do, it will probably have a 
strong BASICA flavor, since we are start- 
ing on the PC. But we can be careful not 
to introduce gross incompatibilities 
from current ATARI BASIC. 

(Ron Winn) Even ATARI basic is a 
start. There is a whole generation of 
BASIC programmers. They would like 
to start there where they feel at ease, 
then move them up to modern 
languages. 

(Steve Brecher) Is there any in- 
termediary between $500 and, e.g., In- 
foworld superficial descriptions wherein 
I might obtain info on what GEM is and 
is not, from a programmer’s view? 

(DRI) We are strongly considering a 
Retail Programmer’s Toolkit which 
would be released late in the summer. 
If this happens the GPS support that 
you get with the current Toolkit will be 
unbundled. Instead we will offer on-line 
DR SIG subtopic like Borland does for 
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TLirbo PASCAL. Someone could then 
“buy up” into GPS if they start a serious 
project. 

(Steve Brecher) But right now, 
without necessarily requiring detailed 
info as for coding, but rather a program- 
mer’s conceptual overview? Anything 
available? 

(DRI) Not really, you are going to 
have to be a little patient. We are kind 
of maxed out right now with shipping 
the PC and 68K Tbolkit. There is some 
catching up to be done on the documen- 
tation side. We are strongly encourag- 
ing in-house people to write articles on 
GEM PC and GEM ST. Keep an eye on 
places like Dr. Dobb’s and Antic. I am 
now told that there will soon be an arti- 
cle in Analog. 

(Ron Winn) You mentioned the 1st 
GEM LOGO. Does that suggest that ear- 
ly ST buyers will end up putting in new 
ROMs later on? 

(Steve Brecher) The first ST buyers 
won’t get ROMs, I hear. They will be all 
in RAM. 

(DRI) No, just that they bought 
source rights and could go to a later 
release if they chose. (I kind of doubt it, 
but that is strictly my opinion.) BTW, 
Steve the business about RAM was 
reported in the press but we can not of- 
ficially comment. 

(Steve Brecher) WSJ today says all 
of OS (“near” 256KB) will be in RAM for 
1st 8 weeks of production. (Maybe all to 
Europe.) 

(DRI) Well, the WSJ usually has 
good sources, but we can not comment, 
call Jack. 

(Steve Brecher) Ron, in case you 
did not hear, ST availability in the U.S. 
is now July. 

(MODERATOR) Please clarify a 
point of possible confusion. The pr- 
gramming commands that will allow a 
user to, for example, “open a window” 
from BASIC are a function of that ver- 
sion of BASIC he is running. Whether 
such operations will be possible on an 
ST does not depend on upgrading to a 
new version of GEM (changing ROMs). 
It is simply a matter of buying a new ver- 
sion of BASIC. Correct? 

(DRI) Um, I assume we are talking 
about a hypothetical BASIC. Generally 
what you say is true but there are ways 
to work around requiring a whole new 
interpreter when GEM changes. As an 
example, if anyone out there has ever 
used CALL or the “& trap” on Applesoft, 
there are ways to jump directly to 
assembly routines from BASIC. If we 
took that route, then only those routines 


would change if the underlying GEM 
changed. HOWEVER, we will make 
every effort to be sure that future ver- 
sions are fully backward compatible. 

(MODERATOR) I guess I was trying 
to state a slightly different issue. Many 
novice programmers might think they 
have to wait and not buy one of the first 
few STb simply because they only know 
BASIC and the existing BASICS may not 
have a way to “open a window” for ex- 
ample. Someday, somebody probably 
WILL sell a version of BASIC which has 
these commands just like some BASICs 
support automatic line numbering, 
others do not. The ability to talk to GEM 
depends on the programming language. 

(MODERATOR) He can buy an ST 
now and WILL NOT have to buy new 
GEM ROMS just to program in BASIC. 
Do you follow my point? 

(DRI) Ok, that is right, because GEM 
is not language dependent. However, we 
could not (with a straight face) recom- 
mend that anyone pay $4500 for a ST 
right now to run BASIC. The environ- 
ment on the Sib from ATARI is only 
suited for a programmer who is an ex- 
pert in C and the 68K. 

(MODERATOR) “at this time”. 

(Ron Winn) $4500? You mean the 
development Sib? Is it worth paying 
$1500? 

(DRI) Yes, the development STs. 
$1500 would be more like it. All we 
meant to say was that it is difficult these 
days to market a program written in 
BASIC, and that would be the only way 
to justify paying the developer’s price. 

(Bill Bolton) I have not seen the 
release GEM yet. It is still sitting in 
customs (cleared today they tell me). 
But with the Tbolkit version there was 
a definite limit on the number of things 
that could be installed on the Desktop. 
Has that been “fixed” in the release 
version? 

(DRI) The limit remains. There is a 
quick way to delete previous programs. 
We will post the transcript tomorrow 
and you can read it there. Again, note 
that just because you can not get a 
special icon installed for a program does 
not mean you can not run it! Remember, 
.COM and .EXEs will default to DOS 
mode, and .APPs to GEM mode. 

(Ron Winn) I hope you will pursue 
the “buy up” policy you talked about so 
that the many machine buyers can grow 
with their machine without getting cost 
shell shocked. 

(DRI) I happen to agree. (Ha ha, we 
noticed.) Look for further news on this 
in a few weeks. 


Disk HI 
Formatting 

by Kenneth J. Pietrucha - JACG 

To me, the most sensible approach to 
formatting has always been to format a 
new box of disks at one time. I made this 
decision after I tried to save a program 
to an unformatted disk. Now I do not 
even take the cellophane off the box un- 
til I am ready to format them all. 

Formatting an entire box of disks 
using DOS involves many key strokes. 
Fortunately, the Atari has an XIO 
command which allows you to format 
directly from BASIC, Actually, the whole 
formatting program can be written as 
a one or two liner. 

5 REM FORMATTING 
PROGRAM 

lO XIO 256, #1,0,0, “D:” 

That is it! Type RUN, hit RETURN and 
your disk will be formatted. This may 
be one of the shortest formatting pro- 
grams ever but you do not have to keep 
it that way. Now is your chance to write 
your own formatting program. You can 
have the screen change color during the 
formatting process or you can add a 
counting step, line N = N + 1, to tell you 
how many disks have been formatted. 
You can use the special function keys to 
start the formatting process instead of 
typing RUN each time. 

There is very little additional informa- 
tion on the XIO command. In Ion Poole’s 
book, YOUR ATARI COMPUTER, on 

ly a brief mention is made of this XIO 
function. I do not know the specifics, 
only that it works. As a matter of fact, 
every BASIC formatting program I have 
ever seen uses this command. 

Here is my version of a formatting pro- 
gram: which I keep on my utility disk. 
It keeps track of the number of disks for- 
matted. If I start with a new box of ten 
disks, I better have the number 10 on 
the screen when I am finished. 

I think you will like formatting with 
this approach. It is definitely easier than 
using DOS. 
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By Joe Eash 

Do you recall a chUcTs drawing tool called “Etch-a- 
sketch”. With Master Pencil, you can now do this elec- 
tronically. Ah, but this program has developed into 
more than just moving the cursor around and mak- 
ing lines. 

This program can make perfectly straight lines at 
any angle when you give it the “from” and “to” points 
and ask the program to “fill” in the line for you. You 
can draw pictures with a joystick and (unlike Etch-a- 
sketch) selectively erase portions you wish to change. 
You may also copy or move portions of the picture 
around the screen. There is an Alphabet mode for 
adding words and numbers to your drawings. 

Once you have created a “master-piece” you can 
save it and load it later to show to your friends. 

You can print your pictures if you have PrintWiz (or 
any other special printer utility that prints graphics). 
If you are using PrintWiz, the pictures usually look 
their best under “THple Width” and “Double Height” 
options (part of PrintWiz’s special commands). 

If you have the disk that accompanies this magazine 
you will find the source program in BASIC “MPEN- 


CIL.BAS”, the ACTION! source code “MENCIL.ACT” 
and the machine language version “MPENCIL.BIN* 
which is really the ACTION! source code that has been 
compiled by the “RUN TIME KIT (c) 1984 Action 
Computer services. The one you will usually use is 
“MPENCIL.BIN”. You may use the BASIC or ACTION! 
versions to modify Master Pencil to fit your needs or 
to get ideas. NOTE: both versions make use of all the 
memory available on my 48K computer, so modifica- 
tions may cause an “Out of Memory” error. Action 
users must do a compile from disk. 

Please feel free to share this program with your 
friends, but please keep all credits in the program. 

Now, down to business. I have done my best to make 
this program very easy to use so that you’ll only have 
to read this once. 

When the program is run the screen will turn black 
and a small cursor will be blinking on the screen. This 
cursor can be moved with the joystick in any of 8 dif- 
ferent directions. This “magic” cursor will not erase 
any dots it crosses while being moved. To plot a dot, 
press the fire button. You can change the color of the 
dot by pressing the space bar. There are only 2 col- 
ors, the foreground and the background. When the 
words “COLOR ON” is in the window at the bottom 
of the screen, you will be drawing dots on the screen. 
When the words “COLOR OFF” are in the window, you 
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will be erasing dots. Your joystick is your “ Master 
Pencil ”! So, with your pencil in hand and your paper 
on the screen, doodle for a while and get use to “COLr 
OR ON” and “COLOR OFF” (press the space bar to 
switch them). 

Now that you are used to using this much of the pro- 
gram, let’s go on. The only two keys you need to 
remember while you are drawing are: the space bar, 
and the escape key [ESC]. Press the ESC key and a 
menu will appear. At the bottom of the menu screen 
is an up-to-date display on a few important things. 
Here is an explanation of them: 


HSPEED - This is the horizontal speed of the cursor. 
This will be explained later under “H”. 

VSPEED - This is the vertical speed of the cursor. This 
will also be explained later in detail. 

X POS - This is the horizontal position of the “Magic” 
cursor on the screen. 

Y POS - This is the vertical position of the “Magic” 
cursor on the screen. 

4-WAY MIRROR - This will be explained later under 
“E”. 

GET DOT mode - Explained under “G”. 

The other items on this menu perform very special 
features and have taken a long time to perfect, so I’m 
sure you will appreciate the things that they do. Here 
they are, explained in detail: 

A) ALPHABET. This feature lets you put letters, 
numbers, lower case, graphics characters and punc- 
tuation anywhere on the screen you want. Press “A” 
and you will be asked the height and then the width 
of the letters to be drawn. For now, press 1 for the 
height and 1 for the width. One is the smallest size 
of a letter and is the same size as the text mode let- 
ters. Next you will be asked to position the cursor in 
the upper-left corner of the area where the first 
character is to be printed and press the fire button. 
For now, put the cursor towards the left side of the 
screen and press the fire button. Now type anything 
you want, or press return to move cursor somewhere 
else or [ESC] to return to the menu. 

B) MOVE/DUP. This is for moving a piece of your 
picture to another place on the screen. If you respond 
“Move” then the area to be transferred will be erased, 
otherwise, “duplicate” will not erase that area. Follow 
the rest of the prompts and you will be on your way 
to complete the process. Note: since BASIC doesn’t 
have as much memory available this function is 
slightly different. 

C) CLEAR SCREEN. This will clear your drawing 
screen and reset horizontal and vertical speeds to 1. 

D) DIRECTORY. This displays ALL the files in DRIVE 

1 . 

E) 4-WAY MIRROR. When this is turned on, 
anywhere you are on the screen when you plot a dot 
it will be mirrored in the 3 other quarters of the screen. 

F) FILL (FOR GET DOTS). See “GET dots”. 

G) GET DOTS (100 MAXIMUM). When using this 


mode, the computer stores the next 100 dots plotted 
on the screen. For example: press “G” in the menu, 
“L” to return to picture, then randomly plot about 20 
dots fairly well spread out. Now press [ESC] for the 
menu, then press “F”, and PRESTO! All the dots will 
be connected in the exact sequence that you plotted 
them. Now, try to make a star. 

H) HORIZONTAL SPEED. This value determines 
how many dots the cursor will “skip” when moving 
horizontally across the screen. To change the value, 
press “H” while in the menu and enter a number from 

1 to 10. Do not forget to press [RETURN]. 

I) VERTICAL SPEED. This is the same as “H” ex- 
cept this controls how many dots the cursor will skip 
when moving vertically. Press “I” and enter a number 
from 1 to 10. Again, don’t forget to press [RETURN]. 

J) SAVE. Enter a name for the picture (maximum of 
8 characters, with an optional 3 character extension) 
and press [RETURN]. Your picture will now be saved 
to disk under the filename you gave it. A long, thin, 
white cursor will show you where the cursor is while 
saving. 

K) LOAD. Enter a name for the picture and press 
[RETURN] . Your picture will be loaded from disk onto 
the screen for you to view, edit and save again. Note: 
the BASIC version loads and saves much slower (about 

2 minutes, 30 seconds) than the machine language 
version* (about 10 seconds). 

L) EXIT. This returns you to your picture. 

TIPS: If you are familiar with artifacting in graphics 
mode 8 (which is what this program uses) here is a 
neat trick. For red artifacting, position the cursor in 
a column where the color is red. Then press [ESC] for 
menu and set the horizontal speed to 2 and the ver- 
tical speed to 1. Do the same for blue, except position 
the cursor in a blue column. If you are not sure about 
the color of a column, press [ESC] for the menu, then 
look at the value for the “X POS”. If the value is an 
even number, then you are on a blue column. If the 
number is odd, then you are on a red column. Plot- 
ting two dots side-by-side will cause the color to be 
white, not red or blue. 

Use the “GET” and “FILL” modes as much as possi- 
ble to save time. These modes are very helpful in draw- 
ing geometrical shapes as well as your own creative 
designs. 

If you wish to clear the window of instructional text 
to do a screen print, press [ESC] for the menu, then 
press “L” to return to picture. Now you have a clean 
picture to print. 


* the machine language version is the ACTION! 
version compiled by: The RUN TIME KIT, (c) 1984 Ac- 
tion Computer Services. 
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DISK OPERATING SYSTEM 2.5 


(Editor's note: The following is being reprinted by 
the SLCC JOURNAL with permission of Atari Corp.) 

Every effort has been made to ensure the accuracy 
of the product documentation in this manual. 
However, because we are constantly improving and 
updating our computer software and hardware. Atari 
Corp. is unable to guarantee the accuracy of printed 
material after the date of publication and disclaims 
liability for changes, errors and omissions. 

ATARI ATARI BASIC, AtariWriter, 1050, 810, 
130XE, 65XE and 800XL are trademarks or 
registered trademarks of Atari Corp. 

No reproduction of this document or any portion 
of its contents is allowed without the specific written 
permission of Atari Corp., Sunnyvale, CA 94086. 

Copyright 1985 Atari Corp. Sunnyvale, CA 94086 

INTRODUCING ATARI DOS 2.5 


In an ongoing effort to provide the highest quality 
of products for use with your ATARI Computer, the 
new ATARI Corp. is supplying you with the enclosed 
DOS 2.5 Master Diskette. Its advantages over ATARI 
DOS 3 include ease and convenience of use (most 
utilities are contained within a single file and need 
not be loaded from disk) and compatibility with DOS 

2.0S. DOS 2.5 also allows you to use the full capacity 
of your ATARI 1050 Disk Drive and to access the full 
RAM potential of the ATARI 130 XE. 

This short manual provides you with instructions 
for getting started with DOS 2.5. For complete infor- 
mation on DOS 2.5, including detailed discussions on 
the menu items, compatibility with DOS 3 and 2.0S, 
the RamDisk and the 2.5 Utilities, you may consider 
obtaining the new ATARI DOS 2.5 Manual. Available 
from ATARI Customer Relations, R0. Box 61657, Sun- 
nyvale, CA 94088. Cost: $10 plus $2.50 for shipping 
and handling. California residents add 6.5% tax. 


Please write ATARI DOS 2.5 Manual on the outside 
of your envelope when you order the book. 

Getting Started With DOS 2.5 

DOS 2.5 allows you to format diskettes and store 
information in either single or enhanced density. With 
enhanced density you can record about 50 percent 
more data on each diskette than you can with DOS 

2.05. Enhanced-density storage is only possible if you 
have an ATARI 1050 Disk Drive; the 810 Disk Drive 
is not capable of formatting or managing data stored 
in enhanced density. You need a 1050 Disk Drive to 
begin working with DOS 2.5 because your DOS 2.5 
Master Diskette is recorded in enhanced density. If you 
often use an 810 Disk Drive to access your Files, you 
may want to format all your diskettes in single density. 

DOS 2.5 works with any cartridge-based program 
that runs on your Atari Computer and uses DOS- 
even programs that predate DOS 2.5, including the 
AtariWriter word processor and ATARI BASIC. With 
such programs you can always use DOS 2.5 instead 
of DOS 2.0S to prepare data diskettes and manage 
files. 

Many diskette-based programs designed for use 
with the earlier DOS 2. OS can also be used with DOS 

2.5. However, you may have to continue to use DOS 
2.0S with certain protected diskette programs (see 
your program user’s manual if you are unsure 
whether a program is protected.) 

THE DOS MENU 

Load DOS into your ATARI Computer using the 
same procedures you use for either DOS 3 or DOS 

2.05. (If you have an ATARI 130XE, 65XE, or 800XL 
with built-in BASIC, type DOS and press [RETURN] 
to go from BASIC to DOS), The DOS Menu on your TV 
or monitor screen presents a list of the DOS 2.5 
options. 

The prompt below the menu invites you to make 
a selection. You choose the function you want to use 
by pressing the letter corresponding to your selection 
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and pressing [RETURN]. 

DOS then asks you for the information it needs to 
proceed. 

Summary of DOS 2.5 Menu Options 

If you have used DOS 2.0S, you will be familiar with 
most options. Note the change in Option J and the 
new Option R 

If you have only used DOS 3, read this section for 
an introduction to DOS functions. 

A. DISK DIRECTORY allows you to call up a com- 
plete or selective list of the files on a diskette, show- 
ing the filenames, extenders (if any), the number of 
sectors allocated to each file and the number of free 
sectors still available on the diskette. 

B. RUN CARTRIDGE (can ONLY be used with 
built-in BASIC or with a cartridge installed in the com- 
puter). This option allows you to return control of your 
system to built-in BASIC or to the cartridge inserted 
in the cartridge slot. 

C. COPY FILE For use when you have two or more 
disk drives and you want to copy files from one disk- 
ette to another. Also use this option to copy a file on 
the same diskette, assigning a different name to the 
copy. 

D. DELETE FILES lets you erase a file from a 
diskette, increasing the available space on a diskette. 

E. RENAME FILE Use when you want to change 
the name of a file. 

F. LOCK FILE can be used to prevent you from 
changing, renaming, or accidentally erasing a file. You 
will still be able to read the file, but will not be able 
to write to it. An asterisk is placed in front of the 
filename in the directory to indicate that the file is 
locked. 

G. UNLOCK FILE This removes the asterisk in 
front of the filename and allows you to make changes 
to the file, rename it, or delete it. 

H. WRITE DOS FILES lets you add the DOS files 
(DOS.SYS and DUP.SYS) on your Master Diskette or 
System Diskette to a diskette in any disk drive. 

I. FORMAT DISK Used to format a blank diskette, 
which is necessary before you can record any infor- 
mation on it. Be sure you do not have any files you 
want to keep on a diskette before formatting it. This 
option will format a diskette in enhanced density pro- 
vided you are using a 1050 Disk Drive; otherwise, it 
will format in single density. 

J. DUPLICATE DISK Use when you want to create 
an exact duplicate of a diskette. This option will 
automatically format the destination disk. 

K. BINARY SAVE saves the contents of specified 
memory locations on a diskette. 

L. BINARY LOAD lets you retrieve an object file 
from diskette 

M. RUN AT ADDRESS Use to enter the hexadec- 
imal starting address of an object program after it has 
been loaded into RAM with BINARY LOAD. 

N. CREATE MEM.SAV reserves space on a diskette 
for the program in RAM to be stored while the 
DUP.SYS file is being used. For some applications like 


programming, it is a good idea to create a MEM.SAV 
file on each new diskette you intend to use as a System 
Diskette. As you become more familiar with DOS, you 
may find there are cases where a MEM.SAV file serves 
no useful function. The inconvenience of waiting for 
MEM.SAV to load into memory may warrant deleting 
it from the disk. 

O. DUPLICATE FILE copies a file from one diskette 
to another, even if you have only a single disk drive. 

P. FORMAT SINGLE formats a diskette in single 
density using a 1050 Disk Drive. 

DOS 2.5 AND THE ATARI 130XE RAMDISK 

The ATARI 130XE Computer is equipped with 
131,072 bytes— 128K— of Random Access Memory 
(RAM), twice the maximum 64K available with earlier 
model ATARI Computers. The additional 64K RAM 
can be useful for many purposes: fast exchange of 
screen images for animation, additional storage for 
large data bases and so forth. 

You can also use the extra RAM of the 130XE as a 
very fast “virtual” disk drive. Set up as a “RamDisk” 
(recognized by DOS 2,5 as Drive 8 in your system) it 
can accommodate up to the equivalent of 499 sectors 
on a diskette. That is about half what you can store 
on a diskette formated in enhanced density. 

The “storage” capacity offered by the RamDisk is 
volatile memory. Information stored in it will be lost 
when you turn off your computer system. So before 
turning off your system, be sure that any data current- 
ly in the RamDisk that you want to save permanently 
is recorded on an actual diskette. 

The RamDisk can be a very convenient tool. It allows 
you to switch almost instantaneously between BASIC 
(or any other programming language) and DOS, and 
back again. Use it to work with files “stored” on Drive 
8; a technique that might prove especially useful 
when you are transferring large amounts of data bet- 
ween two programs that are chained together (that 
is, when one program RUNs the other). 

To Activate the RamDisk 

Your DOS 2.5 Master Diskette contains a file called 
RAMDISK.COM that automatically sets up the extra 
64K RAM of the 130XE as a RamDisk. 

When you boot your 130XE system with a DOS 2.5 
Master or System Diskette containing RAMDISK. 
COM, DOS will: 

- Display a message that it is initializing the 
RamDisk; 

- Set up your computer’s extra 64K of memory to 
act very much as a disk drive, telling DOS to regard 
it as Drive 8; and 

- Copy the DOS file DUP.SYS and establish MEM. 
SAV on the RamDisk, and use the versions of these 
files on the RamDisk rather than those on your Master 
Diskette. 

If you wish to expand the usable capacity of your 
RamDisk, you may recover the memory used by 
DUP.SYS and MEM.SAV by: 


13 


- Changing the contents of location 5439 ($153F) 
to ATASCII 1, forexample, POKE 5439,ASC(‘T’); and 

- Deleting the files DUP.SYS and MEM.SAV from the 
"diskette" in Drive 8, that is, the RamDisk. Use op- 
tion D. ( DELETE FILE(S), on the DOS Menu and enter 
D8: * * in response to the DELETE FILESPEC prompt. 

Note: Booting a disk which does not contain 
DUP.SYS will cause RAMDISK.COM to initialize the 
RamDisk, but DUP.SYS and MEM.SAV will not be 
moved to the RamDisk. 

Using DOS With the RamDisk 

Because of the size of the RamDisk, you may not 
use DOS Menu option J., DUPLICATE DISK, to copy 
either a single-density or enhanced-density diskette 
to the RamDisk. Instead, you must copy individual 
files, taking care that they do not exceed in size the 
capacity of the RamDisk. You can ask DOS to dupli- 
cate the contents of the RamDisk on an actual disk- 
ette. 

From then on, however, that diskette will be capable 
under DOS of accessing only 499 sectors worth of 
data, though you can always duplicate its contents 
back to the RamDisk. 

If You Do Not Want to Use the RamDisk 

If you do not want to use the ATARI 130XE Ram- 
Disk, you can either delete or rename the RAM- 
DISK.COM file on your DOS 2.5 Master or System 
Diskette. You may then use the extra RAM for other 
purposes. 

If you have applications for which you do not wish 
to use the RamDisk, it is recommended that you leave 
the RAMDISK.COM file intact on your DOS 2.5 Master 
Diskette. You might wish to make one working copy 
of DOS (System Diskette) that contains RAM- 
DISK.COM, and one that does not. Or you can simply 
rename the RAMDISK.COM file on your System 
Diskette, then rename it back to RAMDISK.COM when 
you wish to use it. 

THE DOS 2.5 DISK UTILITIES 

Your DOS 2.5 Master Diskette contains three new 
utility programs in addition to the standard disk 
utilities handled by the DUP.SYS file— those available 
from the DOS Menu. The programs, each of which 
appears on the disk directory with a .COM extender, 
function as follows: 

COPY32.COM allows you to copy files from disket- 
tes formatted and written to from ATARI DOS 3 to 
DOS 2.5 diskettes, converting the files in the process 
from DOS 3 to DOS 2.5. 

DISKFIX.COM allows you to correct some prob- 
lems that may occur with files on DOS 2.5 and 2.0S 
diskettes. Under certain conditions, you can also use 
this utility to recover deleted files. 

SETUP.COM allows you to change certain DOS 
parameters. You can also use it to create an AUTO- 
RUN.SYS file that will automatically load and run a 


BASIC program when you boot your system. 

Note: RAMDISK.COM is not a disk utility. It is used 
only to set up the RamDisk on a 130XE Computer. 

Selecting and Loading a Utility 

All three utilities are binary files that are loaded and 
run using option L., BINARY LOAD, from the DOS 2.5 
Menu. For example, to begin using the COPY32.COM 
program, with the DOS 2.5 Menu on your screen, you 
would type L and press [RETURN], then type COPY- 
32.COM as the name of the file to load, and press 
[RETURN] again. 

Specific instructions for using the COPY32.COM 
follow. There are also brief instructions for DISKFIX. 
COM and SETUP.COM. For more detailed instructions 
for the latter two utilities, consult the ATARI DOS 2.5 
Manual (see the Getting Started section of this manual 
for ordering instructions). 

COPY32.COM 

Using this utility is much like using the COPY FILE 
function on the DOS Menu. After you load the 
COPY32.COM program, you are prompted to specify 
which drive will hold your DOS 3 (source) disk and 
which drive will hold your DOS 2.5 (destination) disk. 
If you have only one drive, type 1 in response to both 
prompts. In this case, you will have to swap your DOS 
3 and DOS 2.5 diskettes during the copying process. 
If you have more than one disk drive, you may select 
one to hold your DOS 3 diskette and another to hold 
your DOS 2.5 diskette. 

At this point, if you have only one drive, the utility 
prompts you to insert your DOS 3 disk in Drive 1. For 
safety, place a write-protect tab on your DOS 3 disk 
so that you will not erase valuable data if you make 
an error while swapping diskettes. 

If you specified two different drives, the utility 
prompts you to insert both your DOS 3 and DOS 2.5 
disks. 

After you insert the diskette or diskettes, press 
[START]. The COPY32.COM program reads the direc- 
tory of the DOS 3 diskette and displays the files it con- 
tains, sixteen at a time, by number. Press [RETURN] 
to see the next sixteen files. When all the files on the 
diskette have been listed, you have the options to 
restart, return to DOS or view the files again. 

To convert a file, enter the number of the file you 
wish to convert. The utility prompts you to confirm 
your choice by pressing [START]. 

When you press [START], the program: begins the 
conversion process by reading the specified file from 
the DOS 3 diskette. After COPY32.COM reads the en- 
tire file (or as much data as it can accommodate in 
its memory buffer), it asks you to swap disks if you 
specified the same drive for your DOS 3 and DOS 2.5 
disks. With very large files, you may have to swap 
diskettes several times. If you are using two drives, the 
program copies and converts the file in a single 
operation. 
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After the file has been copied and converted, press 
[START] to return to the listing of files on your DOS 
3 diskette, from which you may choose another file 
to convert. 

If an error occurs during the copy process, 
COPY32.COM displays an error number and prompts 
you press [START] to restart, or [SELECT] to return 
to the DOS 2.5 menu. 

Note: Unless you have two disk drives, you will be 
unable to convert files of more than 124,700 bytes 
(300 bytes less than the maximum file length possi- 
ble under DOS 2.5). 

DISKFIX.COM 

This program begins by showing you the current 
drive number and a menu with these five options: 

1. Change Drive # 

2. Unerase File 

3. Verify Disk 

4. Rename File by # 

5. Quit to DOS 

Type the number of the function you wish to use 
but do not press [RETURN] after typing your choice. 
After activating an option, follow the prompts. 

SETUP.COM 

This program begins by showing you a menu with 


these four options: 

1. Change current drive number 

2. Change system configuration 

3. Set up an AUTORUN for Boot 

0. Quit - Return to DOS 

Menu selections 1 and 0 are used for “housekeep- 
ing” purposes. The two main functions of this utility 
are menu selections 2 and 3. Press the number key 
that corresponds to the function you wish to use, then 
follow the prompts. 

Customer Support 

Atari Corp. welcomes any questions you might have 
about your Atari Computer product. 

Write to: 

Atari Customer Relations 
P.O. Box 61657 
Sunnyvale, CA 94088 

Please write the subject of your letter on the out- 
side of the envelope. 

We suggest that you contact your local Atari User 
Group. They are outstanding sources of information 
on how to get the most out of your Atari Computer. 
Tb receive a list of the user groups in your area, send 
a self-addressed stamped envelope to: 

Atari User Group List 
P.O. Box 61657 
Sunnyvale, CA 94088 


HANDICARDS 

Quick Reference Instructions for Atari' Programs 

• Organized commands • Durable plastic (11” x 4 1/4”) 

Easy to read • Use on or off computer 



Now available ton 
ATARIWRIT ER- 
Beginning BASIC 


WA„orc * HIT- 


ACTUAL SIZE: 11" x4 1/4* 


NMIHCMUr 


As an introductory offer, User 
Group members may have the benefit 
of reduced prices through quantity 
group purchases. The regular price 
of HANDICARDS is $8.95 each 
postpaid . 



HANDIDISKS - multiple programs and files at the 
unbelievable price of $5.95 per disk (plus $2.00 
shipping and handling per order). 

Available Disks: PICTURES I , PICTURES II (SPECIFY 
KOALA OR MICROPAINTER), AMS MUSIC I, AMS MUSIC II f 
PRINTER UTILITIES, GENERAL UTILITIES, MODEM 
PROGRAMS, MENU PROGRAMS, SAMPLER DISK. 


Ten (10) or more HANDICARDS may be 
purchased at $5.95 each, shipping 
and handling included (to one 
address) . 

Only $8.95 ea. postpaid 

(Both for only $75.95 ppd.) 

NY residents add sates tax 


HANDI PUBLISHING INC 


“Trademark of Atari Corp. 

P.O. Box 453, Ardsley, NY 10502 
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Using 16-Bit 
Sound 


Sound Ideas 

by Lee Minard 

STARFLEET Users Group , Denver 

You have already heard me complain 
about the lack of realism in the sounds 
you get from the instructional books 
(and the ATARI can do wonders with 
sound) so here is another of my attempts 
to get more out of my 800XL! 

This time I am working on the sound 
of atrain. Why you ask? Well I did it for 
the challenge. And I learned a lot from 
it. I hope you do too. 

This is an attempt to build the sound 
of a steam locomotive pulling out from 
a station. It gets close. I was never 
satisfied with the whistle sound. I would 
love to hear how you improved it. 


by JERRY WHITE 

(Copyright 1985 by Antic Publishing , Inc.) 

(Editor s note: This submission by Jerry White was 
donated by Antic Magazine for the SLCC “ Special 
Edition ” Journal.) 

Beef up your music from Atari BASIC with this short 
program by Antic Contributing Editor Jerry White. 
Learn how to program 16-bit dual-voice sound that 
gives you a well-tuned 7 octaves— instead of the 
thinner-sounding 4 octaves you’d ordinarily get. 
Works on all Atari computers of any memory size, 
with disk or cassette. 

If you have experimented with SOUND commands 
in Atari BASIC, you probably noticed that some of the 
higher notes seem a bit flat. You may have also found 
that your lowest note is the B generated by SOUND 
0,255,10,8. 

Using SOUND commands with a distortion value 
of 10 for clear sound, you have a range of just over four 
octaves. If you’d like to fine-tune your music and ex- 
tend that range to seven octaves, this tutorial will tell 
you how. 

The SOUND 16 program will demonstrate what is 
called 16-bit sound. It is based on using two combin- 
ed voices to create one sound. Only two sounds can 
be produced at once but the frequency of each pitch 
will be more accurate and much deeper bass notes 
can be generated. 

The BASIC program uses an assembler subroutine 
to turn 16-bit sounds on and off. A commented source 
code listing has been provided for assembler hackers. 
The assembler routine also appears in the BASIC pro- 
gram as the DATA statements starting at line 20010. 


The FOR/NEXT loop at line 130 reads this data and 
stores our subroutine in the string S16$. 

Using BASIC's USR function, the desired frequen- 
cy and volume for one or two voices can be passed to 
the subroutine, as shown in the demo program. Note 
that the SOUND and POKE commands found in line 
150 must be executed before your first USR call. 

The BASIC program reads frequency data into an 
array called FREQ. This array stores 12 frequencies 
for each of seven octaves. Octave one contains the 
highest note frequencies, while octave seven contains 
the lowest bass notes. 

Each octave begins with C as its lowest note (pitch 
12), and ends with B as its highest note (pitch 1). Mid- 
dle C (SOUND 0,121,10,8) is frequency 3414 or 
FREQ(4,12) in our array. The next highest note, C#, 
is FREQ(4,11). The next lowest note, B, is FREQ(5,1). 

The program uses a countdown timer to clock 
delays. When you POKE a number from 1 to 255 into 
location 540, it will be decremented every l/60th of 
a second. l/60th of a second is called a “jiffy.” Thus, 
if you set the variable WAIT = 60, then go to the 
subroutine beginning at line 480, you will return in 
one second. 

Octave, pitch and note will be displayed on the 
screen as the program cycles through all frequencies. 
Next, the double 16-bit sound option will be used to 
demonstrate the use of consecutive octaves. Finally, 
a short tune is played just before the program ends. 

Seeing and hearing the demonstration program as 
it runs and studying the program listing should help 
you understand the use of 16-bit sound. With any 
luck, you and your Atari will soon be making beautiful 
music together. 
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System Key to the Key System 


THE KEY SYSTEM 
- AN ATARI BBS 
OPERATED BY 
THE SAN LEANDRO 
COMPUTER CLUB 
415 352-5528 - ALWAYS OPEN 

QUICK REFERENCE CARD 

By Mike Sawley 

GENERAL SYSTEM COMMANDS: 

USE THESE COMMANDS AT THE 
MAIN *GO PROMPT. 

[A] ASCII / ATASCII TOGGLE 

Used to switch between these two 
translation modes. If you change the 
translation mode at your end only, then 
the BBS will no longer understand your 
commands! Use this toggle! 

[D] DOWNLOAD A FILE 

You must give the file name exactly 
as it is shown in the files listing. Colons 
(:) and periods (.) are not allowed. If you 
misspell the file name, the system will 
tell you ,L File not found." 

[E] ENTER A MESSAGE 

Drops you into the message enter 
routine of the currently active message 
base. See further commands in the mes- 
sage section. 

[F] FILES LISTING 

Presents a list of the available files for 
downloading. You will be asked to sup- 
ply a category from a menu. You may 
skip this menu by appending the cate- 
gory code to the [F] command. |F G] will 
find all the games. [F UJ will find all the 
utilities. 

[G] GOOD BYE 

The proper way to log off. Confirma- 
tion is made to be sure you really want 
to leave. 

[K] KILL MESSAGE 

Drops you into the delete message 


routine of the currently active message 
base. You need to supply a message 
number to kill. The message must have 
been posted by you or addressed to you 
for you to delete it. 

[L] LEAVE MESSAGE FOR SYSOP 

Lets you enter a private message to 
the Sysop. The system will accept mes- 
sages of 15 lines and 80 columns maxi- 
mum. Since these messages go to the 
system printer, no one but the Sysop 
will see it. Also see message editor 
commands. 

[M] ELECTRONIC MAIL 

Activates the Electronic Mail Base. 
This is the only place where private 
messages are kept. You may only read 
messages addressed to you and/or 
posted by you. Since the system scans 
the base sequentially it may take some 
time if your message is at or near the 
end of the queue. When you first enter 
this section you will be told if you have 
any messages waiting. 

[P] PROFILE OF YOUR PASSWORD 

Lets you see how you have been us- 
ing the system. In addition, you may 
change the following contents of your 
file: 

1) You may enter a new password 
(must be 4 characters!). 

2) You may enter a new phone 
number. 

3) You may change your system 
parameters. 

4) Tbggle system clock on/off. 

[R] ENTER THE CURRENTLY AC- 
TIVE MESSAGE BASE 

Will tell you what message base is 
active and ask if you want to search for 
messages addressed to you. If you have 
messages waiting, you will be told 
which messages to read. You are then 
advised how many messages are in the 
base and the low and high message 
numbers. You are then given the mes- 


sage base Select: prompt. See message 
base commands below. 

[U] UPLOAD A FILE TO THE 
SYSTEM 

You must supply a file name. As with 
downloading, colons and periods are not 
allowed. You have to tell the system how 
long the file is in single density sectors. 
You must catalog the file from menus 
that will be displayed. You should always 
use XMODEM for uploading. If you use 
non-XMODEM, begin your transfer IM- 
MEDIATELY, since a pause of 10 sec- 
onds tells the system to save out the file 
or abort if there has been no data sent. 

[Y] YELL FOR SYSOP 

If paging is off you will be told that the 
Sysop is not around. If paging is on a 
message will be displayed telling you 
that the Sysop is being paged and you 
may continue to use the system. The 
Sysop has the ability to break in at any 
point. 

[Z] MESSAGE ZONE SELECTION 

There are several message zones 
(bases) available on the system. You will 
be given a list and asked to choose one 
of them by number. 

[*] DATA BASE AND HELP FILES 

There are a number of interesting text 
files to be found here, including a short 
help file. You should choose the file to 
read by its number from the menu. You 
will be given the option to use XMODEM 
when reading the file, but since they are 
currently all text files, this is not really 
necessary unless you want to save one 
of them to your disk. 

[?] COMMAND LIST 

Will display a list of available 
commands. 

MESSAGE BASE COMMANDS 

USE THESE COMMANDS AT THE 
MESSAGE BASE SELECT; PROMPT 


[R] READ MESSAGES COMPLETE 

Lets you read the complete message. 

[B] BRIEF MESSAGES 

Reads only the header of the message 
(to, from, date, title). 

[T] TITLE OF MESSAGES 

Reads only the title and date of the 
message. Lets you mark messages for 
future reading (See [M]). 

[M] READ MARKED MESSAGES 

Reads the messages you marked us- 
ing the [T] option. This must be the next 
command after [T] or the list you gen- 
erated with [T] will be lost. The maxi- 
mum number of messages that can be 
marked is 16. 

[D] DELETE A MESSAGE 

Lets you remove a message from the 
system. The message must have been 
addressed from you or posted by you to 
be deleted. 

[S] SEND A MESSAGE 

Lets you enter a message into the sys- 
tem. Similar to the [E] command but 
from the message base instead of the 
main prompt. See message editor com- 
mands below. 

[C] CONTINUOUS TOGGLE 

The default is to read a message, 
display a command string at the end of 
each message. If you would like to do 
away with this command string, turn on 
continuous display. There will be a short 
pause at the end of each message. If you 
press a key during this pause, the com- 
mand string will be displayed. If you do 
not press a key, the next message in your 
queue will be displayed. 

[Q] QUIT 

Exits the message base and takes you 
to the main *Go prompt. If you have 
posted or deleted messages, there will 
be a short delay while the system writes 
out a new index. 



[Z] MESSAGE ZONE SELECTION 

Lets you change message zones 
(bases). Choose the one you want to go 
to by number from the list. 

NOTE: When requesting the [R|, [B] and 
[T] commands, you will be asked for 
message numbers. There are several 
ways to tell the system which messages 
to display: 

[ + ] ALL messages, lowest to highest. 
[ - ] ALL messages, highest to lowest. 
(3, 5,9, 2] gets these message 
numbers. 

[40-50] gets all messages from 40 to 
50 inclusive. 

[20,22,70-65,16] gets combination. 

MESSAGE EDITOR COMMANDS 

USE THESE COMMANDS FROM 
WITHIN THE MESSAGE EDITOR 

(These commands must be entered as 
the first characters of a new line and 
must include the [/] so the system can 
tell a command from a character that 
is part of the message.) 

[/L] LIST MESSAGE 

Lists what you have entered. This com- 
mand works two ways. If entered as 
shown, it will list the entire message. If a 
number is appended to the command 
([/L5]), the system will list the next 5 lines 
starting with the line that you are on. 

[/T] GO TO TOP OF MESSAGE 

Tkkes you to the top line (line 1 ) of your 
message. 

[/B] GO TO BOTTOM OF MESSAGE 

Takes you to the bottom line of your 
message so you can add to the message. 

[/N] NEXT LINE 

Takes you to the next line in the mes- 
sage so you can edit it. 

[/U] MOVE UP 

Moves you up a line. 

[/G — ] GO TO LINE NUMBER ## 

Lets you go to line number — for 
editing. 

[/D] DELETES THE CURRENT 
LINE 

Removes the line that you are on from 


the message. All lower lines will be [CTRL X] CANCEL XMODEM 
moved up to fill in the space. ’ TRANSFER 

[/I/] INSERT A LINE . ^ in can ^ el an XMODEM transfer 

Anything after the second slash will ^ or f an y data ls 9 * nt ' T 6 cancel after 
be inserted as a new line In your mes- data transmission has begun, refer to 
sage. All lower line will be moved down. y° ur terminal program documentation. 
Please note that the second slash is re- 
quired! 

[/C/stringl/string2] CORRECTION 

Finds the FIRST occurence of 

[stringl] and replaces it with [string2]. TERMINAL PARAMETERS 
Note that all three slashes are required. The Rey System , s an Atari BBS but 

[/S] SAVE any computer type may log on. If you 

When you are satisfied with your are not an Atari, or log on in ASCII 
message, this will save (or post) it. translation with an Atari, you must 
[/A] ABORT THE MESSAGE specify your terminal parameters. 

Lets you get out of the message enter These may be changed with the [P] corn- 
routine without saving the message. man d- The terminal parameters are: 

6 1) Line feeds Y/N 

[/? or /H] HELP 2) Clear Screen code (or Home value). 

Lists a brief summary of the message The system is asking for the decimal 
editor commands. value of the ASCII code that will clear 

NOTE: The message editor is line your screen and place the cursor at the 
oriented. You must be on a line to edit fop left of the screen, 
it. Also please note the symbol printed 3) Line Length. Default is 40 col- 
after the line number. [A )] means that umns. This is used to determine how 
you are creating this line. [A :] means long a line may be type in before the 
you are editing this line. system generates a RETURN during 

message entry If you specify 40 or less 
the system will enter a return after that 
many characters. Any message you en- 
OTHER COMMANDS ter w ju a maximum of 30 lines of that 

[CTRL S] PAUSE DATA TRANS- many characters. If you specify 41 to 80 
MISSION columns the system will enter a return 

Used to tell the system to stop sending after that many characters again, but 
you data for a while so you can read it. your message may be a maximum of 15 
The system will automatically start up lines of that many characters. A mes- 
again after about 3 minutes. sage to the Sysop will always be 15 lines 

[CTRL 9] RESUME DATA TRANS- of 80 columns ' the fomlat of the P rinter - 

MISSION 

Used after a CTRL S was sent to tell 
the system to start sending data again, 

[CTRL C] CANCEL COMMAND NOTES ON XMODEM TRANSFER 

Will generally cancel any command AMODEM, SMARTERM, ETMODEM, 
that you have entered. TERM 1030 and HOMETERM all sup- 

[CTRL N] READ NEXT MESSAGE port XMODEM file transfer. It is the on- 
Lets you skip on to the next message ly way to reliably get tokenized or object 
in your queue without having to wait for files. XMOpEM is a way of sending 
the command string at the end of the blocks of data so that there is a check- 
message. sum made at each end. If the check- 


sums match the computers go on to the 
next block. If there is an error the cur- 
rent block is resent. There will be a retry 
up to about 9 times before the transfer 
is aborted. The file is also saved out to 
disk automatically at the end of the 
transfer. The BBS and most terminal 
programs work differently when it 
comes to setting up for XMODEM trans- 
fer. The BBS needs a [D] or [U] command 
to tell it that a file transfer is to take 
place. The BBS will ask, ‘Are you using 
XMODEM (Y/N).” Answer Yes or No as 
appropriate. On the other hand, most 
terminal programs have FOUR different 
commands for file transfer. In most ver- 
sions of AMODEM there are: [C] Capture 
incoming data. [U] Upload data without 
XMODEM. [R] Receive data with 
XMODEM. [S] SEND data with 
XMODEM. As you can imagine, it is easy 
to get all these commands confused so 
be careful! Use the same protocol at both 
ends for a successful transfer. 


NOTES ON COMMAND STACKING 

The BBS allows you to bypass most 
of the sub-promts and sub-menus with 
command stacking. The places you can 
do this are too numerous to list, however 
a few examples should get you going. 

[Z 2] - Thkes you to message base 
number 2 and starts reading 
messages in the reverse 
direction. 

[R 80-100] Begins reading messages in 
the current message base 
starting with message 80 and 
ending with message 100. 
[Z4E] Switches to message zone num- 
ber 4 and drops you into the 
message editor. 

[* 3] Reads Data Base item number 3. 

As you can see, command stacking is 
a fast way to get around the system. 
However, until you get used to the sys- 
tem and know where everything is you 
could easily get lost, since you are skip- 
ping past most of the sub-prompts. Just 
experiment and see what happens. You 
cannot hurt the system! 



NEW XL TRANSLATOR /MENU 



by Jim Warren 

This little demo shows only part of 
what you can do with four players us- 
ing the PM and joystick routines of the 
ACTION! TOOL KIT. The routines allow 
you to easily manipulate players 
without knowing much more about 
them than what they are. 

They are four independent vertical 
stripes that can be shown in three 
widths, 2 vertical resolutions, any col- 
or and can be moved rapidly about with- 
out interfering with anything else on the 
screen. They can be made to appear in 
front of or behind other screen objects. 
Their confluence with any other object 
can be detected at any time. Any section 
of them can be shown at any time so that 
they do not have to appear as stripes. 
They can be animated by changing sec- 
tions of the stripe shown on the screen. 
If they are put side by side they can 
almost cover the screen. In short, what 
they are is neat! 

This little demo was written in AC- 
TION! and uses the player missile and 
joystick routines on the ACTION! TOOL 
KIT. There is an editor that allows you 
to draw on an eight by eight grid and 
then display your drawings as sections 
of the playerO and as the control 
characters displayed on the title screen. 
You can display various lengths of the 
player starting at various places on the 
stripe and you can move the player 
around with the joystick. It is a simple 
little demo designed to give you a "feel” 
for player missile graphics. If you experi- 
ment with the program you will quick- 
ly grasp the ideas involved. 

The demo uses an Antic mode 4 
display list so that we can have four col- 
ored text in a graphics 0 "environment”. 
I have had to draw a new set of letters 
and numbers, however, because the 
standard character set in ROM does not 
show clearly in Antic mode 4. 1 drew the 


new character set with the editor in this 
demo. The editor shows a section of 
playerO and a character in standard and 
inverse mode just to the left of the 
editing box. You can redraw 9 sections 
of playerO and the 9 graphics characters 
that are displayed in the title screen by 
pressing OPTION to select the section 
that you want. You then draw in the box 
with the joystick. Then press STAFCT to 
make a simultaneous change in the 
player and the joystick. The editing page 
will give you a chance to experiment 
with the four color characters of the IR 
(instruction register, in this case antic 
4) modes of the antic chip. 

In the IR antic modes, the characters 
are not displayed as an eight by eight 
grid of dots as in graphics 0 where the 
dots are displayed individually, but as 
an eight by eight grid of dots where the 
dots are displayed in pairs. The color of 
each two bit (no puns please!) pair is 
determined by how the bits in that pair 
are set. The gold and blue bars at the 
top and bottom of the editing box in- 
dicate the dots that are displayed 
together. Think of the box as four col- 
umns across and eight lines deep with 
alternating “gold” and “blue” columns. 
There is a legend at the bottom of the 
screen showing how the paired bits are 
colored. If no bits are set in a column 
then that pair takes color from register 
4. Since register four also sets the 
background color, that pair of bits will 
not appear. If both bits are set in a col- 
umn then that pair of bits is colored by 
register 2 in standard mode and by reg- 
ister 3 in inverse mode. If the left bit on- 
ly is set in a column then that pair of bits 
takes color from register 1. If the right 
bit only is set then that pair of bits is 
displayed with the color of register 0. 
You can change the color of the registers 
by holding down the ESC,1,2,3,4,0 keys. 
You can toggle the direction of the color 
change by pressing the up or down ar- 
row so that if you go past an interesting 
color, just change direction and go back. 
Up adds to the values displayed and 
down subtracts. 



Bill Eash 

Included on the Special Edition disk 
is a special XL Translator. This package 
was put together by Dan Philipps, an 
SLCC member for the past year. Dan 
used the "FIX-XL” (OCT. 84 DOM), the 
“SPIFFY MENU” (APR. 84 DOM) and an 
automatic turn off of BASIC. 

This was put together as an “AUTO- 
RUN. SYS” file (with much rearranging 
and debugging of code). Together with 
a standard DOS, these files will allow 
you to have multiple BINARY files all on 
the same disk as your translator. You 
will have to rename ‘‘XLATOR” to 
“AUTORUN.SYS”. 

This is how you use it: 

1) Boot disk which auto loads the 
translator 

2) AUTOMATICALLY removes BASIC 

3) Pulls up a menu with your pro- 
grams on it 

4) Press the number next to the pro- 
gram selection you want 

Non XL users can use this also. The 
computer just ignores the translator 
load and BASIC turn off. Just remember 
to pull your BASIC cartridge. You can 
have faster loads, though, if you just use 
DOS and the SPIFFY MENU without 
having to load the translator. 

There is an INSTRUCTION program 
on the disk and it is aimed at the begin- 
ning user. The instructions were writ- 
ten by my son, Joe, in ACTION(c). Joe 
has called this package the “XLATOR” 
for the XL - TRANSLATOR. 

Although the instruction program 
states that this package does not give 
the option to load a binary boot disk, it 
will work. When the menu appears 
remove the XLATOR disk, insert the 
boot disk and press 1 (as if you selected 
program 1 on the menu). The disk will 
now boot. The translator is still in the 
system and basic is still removed. This 
was tested using Letter Perfect, Data 
Perfect, and others. When Filemanager 
(which requires BASIC) was tested, the 
message appeared to insert the BASIC 
Catridge verifing BASIC was still 
removed. 
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RamTalker 



by Randy Holmes - STATUS. Users ’ Group 

(Editors note: This article was taken from the ST. 
A.T.U.S. newsletter January , ; 1985. It is Randy's first 
in a series of articles on digital sound. Others may 
follow in future issues of the SLCC Journal.) 

This is the first in a series of articles on the digital 
recording of sound with your Atari. As you may recall, 
an article in the July, 1983 issue of ANTIC magazine 
presented an article on this same subject. The ANTIC 
article included a program, which itself was an adap- 
tation of an Apple program from an early issue of Byte 
magazine. 


presented. To perform a desired function, press the 
number corresponding to that function; a BASIC 
“GET" command eliminates the need to type a 
[RETURN]. If the function you picked is not the one 
you wanted, simply press [RETURN], and the pro- 
gram will take you back to the original menu. After 
a function is selected, the program will prompt you 
for more information. 

RECORD -will ask for a sample speed. Sample 
speed is the speed at which the program will read the 
information coming in at the paddle port. A sample 
speed of 1 will render the highest quality sound, while 
a sample speed of 255 will result in nearly unintelligi- 
ble noise. Once a sample speed is specified, followed 
by a [RETURN], press the START button to begin 
recording. 


In this set of articles, I will present several modifica- 
tions to what was originally an awkwardly coded and 
hard to follow program. In the course of constantly 
updating this program, we should all learn something 
about programming, digital sound and special func- 
tions of the Atari. Rather than enumerate the changes 
that have been made to Ed Stewart s program (the pro- 
gram is now almost unrecognizable), I will discuss the 
specific points of the program as it is now. 


PLAY -will ask for a sample speed. This sample 
speed will be the speed at which the sound informa- 
tion contained in memory will be played back. A good 
speed is usually around 55, giving a natural sound 
to the playback. Of course, you may wish to have your 
recorded sounds resemble the Chipmunks of Lurch, 
in which case you would choose a higher or lower sam- 
ple speed. Again, pressing START after giving a sam- 
ple speed will then begin playback. 


The program requires a special circuit to be built 
to allow the Atari to be able to read an analog voltage 
at its paddle port (Port 3. Sorry, XL owners, we’ll fix 
this problem next month: in the meantime, get your 
circuit built). The schematic is included in this arti- 
cle. In working with this circuit, I have found that the 
two MegOhm potentiometer that was included in the 
original circuit schematic may be eliminated with no 
ill effects on the circuits operation. Once you have this 
circuit built (see accompanying construction article), 
it is possible to read a changing voltage (as might be 
produced by a microphone), as a resistance value from 
0 to 255. This circuit works well in its present form, 
although we may change it in future articles. 

The program, RAMTALKER, is a friendly, fast, 
easy-to-use program. After initialization, a menu is 


THROUGHPUT -will ask for a recording sample 
speed, and will allow you to play sounds through the 
speaker with no time limitations. Press START to 
begin, and a [SYSTEM RESET] will get you out of this 
one. 

SAVE -will ask you for a file name. Include “D:" or 
“C:“ in your file specifications. 

LOAD -will ask you for a file name. Again, use “D:“ 
of “C:” in your specs. The program uses the Atari’s 
Central Input/Output (CIO) routines, which makes 
saving and loading sound files quite fast, even though 
sound files are 132 sectors long (Single Density). 

WAVEFORM PLOT -does just what it says. It plots 
a picture of the sound stored in memory (in locations 
16384 to 32767, a full 16K) on a graph of Time against 
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Frequency. The Time at a sample speed of 1 is a little 
over 7 seconds, and I have not measured the frequen- 
cy response of the system. We’ll do that in another ar- 
ticle. The sound is divided into four separate bands, 
so that we are able to plot the entire contents of 
memory with some detail. To me, the waveform plot- 
ting routine is an exciting feature of this program. You 
can say a few words into your Atari, and then have 
the computer show you what your voice looks like. You 
can see how different sounds are similar, and where 
they are different. Looking at a plot of myself saying 
“file” and “while” gives me quite an appreciation for 
the difficult task that a speech recognition system has 
to perform. 

These are the basics of RAMTALKER. In the com- 
ing months we will modify the program even further. 
Some things I hope we can do with the program: 
editing the sounds in memory, improvement of sound 
quality, special effects (echo and speed effects) and 
maybe, just maybe, some speech recognition. 

I am sure you have your own ideas as to where this 
program could go. I would be happy to hear your sug- 
gestions, criticism and comments. 


Fig. 1 Pin Configuration of Console End 



PIN NUMBER 


1-4 joystick input 

5 POT B 

6 trigger 

7 +5 Volt* 

8 (.round 

9 POT A 


Ramlblker Circuit 
Construction Notes and Parts List 

In place of a microphone, you may want to 
substitute a simple quarter-inch jack of RCA-type jack 
to allow you to plug in a guitar, keyboard, or tape 
player; this will give you higher quality sound than 
recording from a microphone will. Adjust the volume 
control on your source to get the best, most distortion- 
free sound. 



PARTS 

1 . 1 ><F nonpolarized capacitor available at Radio 

Shacks everywhere. 

1 NPN transistor 2N2222, this is a general purpose 
transistor, almost any NPN transistor will work. 

1 100K Ohm Fixed resistor (Brown-Black-Yellow 
resistor code) 

1 DB-9 connector plug, that’s a joystick plug to you 
and me. 

You may mount these components on a small cir- 
cuit board (see Figure No. 2) or simply wire them 
together without a board; either way will work fine. 

Remember not to keep the soldering iron on the 
transistor too long, or you may damage the compo- 
nent. The same goes for the resistor and the capacitor, 
but they have a higher tolerance to heat. Also, be sure 
to observe the Emitter-Base-Collector specifications 
in the circuit. The back of the transistor Package 
should have the pins specified in a diagram such like 
the transisitor in Figure 2. 

After the circuit is constructed, simply run a two- 
conductor wire from the specified points on the cir- 
cuit to the correct pins (7&9) on your port plug. Tfest 
the circuit by plugging it into Port 3, and run the RAM- 
TALKER program. Select the THROUGHPUT option, 
with a sample speed of 1 . Plug in a microphone, guitar, 
tape player or some other source, and see if any sound 
comes from the TV/Monitor speaker. If not, go back 
and check your wiring, making sure all connections 
are good. 

With this circuit up and running, you are ready to 
begin digital sound recording with your Atari 
computer!! 
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810 



by Banford Wong 

(Editor’s note: Do not attempt to do this drive 
modification unless you have had experience doing 
soldering and wiring . The SLCC JOURNAL is not 
responsible for the accuracy of this modification or 
damage caused by this. There are other versions of 
this switch available if this does not suit your needs.) 

A previously published article in the SLCC Jour- 
nal on an 810 Disk Drive write-protect modification 
prompted me to come up with this version. It uses a 
momentary switch, a toggle circuit and an LED for 
"OVERRIDE” indicator. This idea is more involved but 
I believe the advantages it provides are worth the 
effort. 

The main advantage of this override modification 
is that the circuit will always come up in the normal- 
safe mode whenever the disk drive is turned on. 
Second, because of the unique momentary switch 
with a built-in LED and the location on the front bezel 
on which the switch is mounted, the disk drive looks 
very nice. 

This modification uses a momentary switch with 
a built-in LED, a CD4013 dual D Flip-Flop, and 2 NPN 
transistors as output drivers. Section 1 of the D Flip- 
Flop is used as a switch debouncer. The RC network 
on pin 4 provides the filtering. Section 2 of the Flip- 
Flop toggles each time the switch is depressed. The 
RC network on pin 10 assures that the circuit will 
come up in the safe mode whenever the disk drive is 
turned on. The momentary switch is pressed to ac- 
tivate the write-protect override and the LED will 
indicate its status. 

The switch with built-in LED I chose to use is strict- 
ly for cosmetic reasons. Any momentary switch and 
LED would work. The switch/LED is the UNIMEC 
series made by MEC. The circuit is built on a small 
perf board and mounted towards the front of the side 
board using 2 threaded stand-offs. Tb avoid having to 
drill holes through the side board I used RTV to secure 
the spacers to it. The MEC switch is mounted on a 
square hole where the Atari logo is. Be very careful 
cutting the square hole. A tight fit is required. The 
switch binds slightly on the side board. A fiber spacer 
added between the PC board and the chassis took care 
of that. The ADD ON circuit is connected to the disk 
drive via J101 on pins 1,2, and 5. Pin 1 is on the 
bottom. 


n 
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by Bill Fletcher 
Queensland ACE 

(Editor’s note: Do not attempt to do this drive 
modification unless you have had experience doing 
soldering and wiring. The SLCC JOURNAL is not 
responsible for the accuracy of this modification or 
damage caused by this. There are other versions of 
this switch available if this does not suit your needs.) 

This month's modification adds a write-protect 
bypass switch to the 1050 disk drive and will save you 
having to constantly remove and re-stick write-protect 
labels. A flashing LED (Light Emitting Diode) is 
recommended so that you will be aware that your 
write-protected disk can be written to. 

Undo the four screws in the drives casing and lift 
off the cover. Choose a suitable place to mount the 
switch and LED before starting work. The LED would 
naturally be on the front face of the drive but the 
switch may be mounted anywhere it will not foul the 
mechanism or touch any of the components. 


Once you have decided this, find the strap (link) 
marked “ JP7” which is situated in the middle of the 
board, just behind “UlO” (one of the chips). Remove 
this link. The front connection of this link will be the 
supply point for the CENTER pole of your switch. The 
other side is connected to one of the end terminals 
of the same pole of the switch. 

Connect the poles of the switch as shown in the cir- 
cuit diagram below, 5 volts can be found at “TP13” 
located near the middle of the board, approximately 
a quarter of the way from the rear. The earth can be 
connected to “TP15” located near “TP13”. 

Ensure correct polarity of the LED. If you can not 
determine which way it should go put it in and if it 
fails to light reverse the polarity. 

The 100 Ohm resistor is there as a safeguard. It is 
recommended but not essential. The more adven- 
turous of you could get a 3 position, 3 pole switch 
wired as follows: 

POSITION 1 - bypasses “ JP7” completely making 
the system believe the disk is protected. 

POSITION 2 - system normal (acts as “ JP7”). 

POSITION 3 - as shown here. 



KEY:- 

• • 

• • 

SWIKH 


EXISTING CIRCUIT 

LED 


4 

EARTH 


MODIFICATION 


RESISTOR 


~ Light 
I 1 Emitting 

Diode polarities. 

A ^M-ve is short lead] 
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Introduction: 

Have you ever wondered how the Atari file manager 
allocates space? Or where a file resides on a disk? Or 
even where the free space on the disk is located? 
DMAP will answer these and other mysteries of the 
Atari disk structure. 

DMAP was designed to display the Atari diskette file 
structure in a meaningful and (hopefully) entertain- 
ing way. DMAP is easy to use. There are no compli- 
cated options or commands to remember. 

BASIC DMAP INSTRUCTIONS: 

BASIC DMAP requires an Atari BASIC Cartridge. 

Boot your DOS 2.0S disk. 

Insert the disk with BASIC DMAP into the drive. 

Type: RUN “D:DMAP.BAS” [return] 

DMAP will then ask you for the drive number you 
wish to map. 

Enter the drive # and press return. 

DMAP will then ask you to insert the disk to map 
in the selected drive and press return. 

After you have done this, DMAP will show a map 
of used and unused sectors on the screen. 

When you are done viewing the map, press any key 
to rerun the program. 

EXTENDED DMAP INSTRUCTIONS: 

Boot your DOS 2,OS disk. 

If you have a BASIC Cartridge in the computer, type 
DOS [return]. 

When the DUP menu appears, remove the disk from 
the drive and insert the disk containing DMAP.COM. 

Type L (for binary load) and press [return]. 

Now type DMAP.COM and press [return]. 

After the program loads, it will run automatically. 

The screen will now show an introductory message 
and ask what drive you wish to map. 

Enter the drive # containing the disk you wish to 
map or 0 to return to DOS. 

The program will now ask you to insert the disk to 
be mapped into the selected drive. If you haven’t 
already done so, do it now. Press [return] to proceed. 

You will now see a menu asking you to select which 
function is desired. 


DISK 

MAP 

You may now select: 

1: Map Entire Diskette 

This will show the entire diskette surface, in- 
cluding used and unused sectors. 

2: Trace Specific File 

This will present you with a menu of files on 
the diskette and allow you to select which file 
you want to trace. 

After DMAP is finished with either option, it will 
display “Press any key to continue’’ in the upper right 
hand part of the screen. When you are finished look- 
ing at the map, press any key and DMAP will return 
to the starting display and you will be allowed to repeat 
the above functions. 

Atari Disk Structure Explained 

When the Atari DOS creates a file on the diskette 
it must find an unused section of the diskette to place 
the file. In order to quickly find where the unused sec- 
tions of the Atari diskette are, the DOS uses what is 
known as the Volume Thble Of Contents (VTOC). 

The VTOC is a single sector on the disk that is used 
to maintain a record of where used and unused sec- 
tors are located. 

The VTOC sector is organized as follows: 

Bytes 0 through 9: 

Miscellaneous Information 
0: Type Code (0 in DOS 2.0) 

1: # of sectors total (low byte) 

2: # of sectors total (high byte) 

3: # of unused sectors (low byte) 

4: # of unused sectors (high byte) 

5: Reserved 
6-9: Unused 

Bytes 10 ($A) through 99 ($63): 

Sector Usage Map 

720 bits, each bit representing a sector in DOS 2.0 
If a bit is 1, the sector is unused. 

If a bit is 0, the sector is used. 

For a thorough explanation of the Atari DOS 2.0S 
structure, please buy a copy of“Inside Atari Dos’’, the 
most complete and detailed documentation on the 
subject I have come across. 

Thanks to Bill Wilkinson of OSS and Atari for ex- 
plaining how everything works. 

EXTENDED DMAP was written in Deep Blue C. 
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ACTION! ( 

by Frank Daniel \ 

The following is a Blackjack program I wrote in 
ACTION! last November. The program itself is fairly 
well documented so I will not go into detail as to its 
workings. There is one important item though. This 
program requires a support routine equivalent to the 
ACTION! TOOL KIT’s PMG. ACT. Also if you are using 
the player missle package of an older TOOL KIT, the 
graphics procedure requires a fix which I will explain 
later in the article. 

Most of the widely documented graphics techni- 
ques are used in this program. Some of which include 
redefined character sets, player/missle graphics, direct 
screen writes and vertical scrolling. All have appeared 
in one or more of my tutorials in the JOURNAL. 

The rules of play for the game are fairly standard. 
The deck consists of 52 playing cards (though it can 
be changed easily if wished). A bet must be two dollars 
or more. A Blackjack pays 1.5 times the bet (approx- 
imately since I did not use floating point, so stay with 
even bets!). The dealer must hit 16 or less and a soft 
17. You can double down on 10 or 11. Insurance can 
be obtained if the dealer shows an ace by hitting a key 
at the insurance prompt. The cost of insurance is 1/2 
of your bet. Be quick in deciding on insurance because 
you only have four seconds to hit the space bar. Un- 
fortunately there is no splitting. I tried to fit it in, but 
time did not permit it. lb exit hit the escape key at 
either the bet prompt or the player prompt. 

Now about that fix which, hopefully, OSS has 
documented by now. Apparently in the early tool kits 
the graphics procedure in the player missile routine 
did not permit a smooth exit from graphics 0 via the 
PMgraphics routine, causing a 130 error. The easiest 
fix for this is to change the “Graphics” procedure and 
all subsequent calls to another name. You would then 
replace the “screen open” portion of the procedure 
with a call to the cartridge or RealTime package 
Graphics routine. 

That is it. So long for now and good-luck. 


Direct Screen Writing 


Direct Screen Writing 

by Frank Daniel 

Some years ago I was writing a pro- 
gram that in order to be user friendly 
required a few menus. Well as you can 
imagine, this was not too much of a 
problem. Anybody that has ever written 
a multi-task utility has used a menu 
routine at one time or another. 

But as the program got larger, the 
number of menus got larger and most 
of the menus were getting sub-menus. 
This WAS getting to be a problem. Not 
only were these menus taking up a lot 
of memory, but it was taking longer and 
longer to get from point A to point B in 
the program. 

Now there are two thing I really hate. 
One is programs that gobble up too 
much memory. The other is waiting for 
the program to finish printing a menu. 
I faced a real dilemma. It is bad enough 
having just one of these problems in my 
programs. But both?? NO WAY!! My self 
respect could not take it. I had to do 
something!! 

I was now faced with three options if 
I were to continue the project. These 
were: 

1. Doing a complete rewrite of the 
command processor into a CPM type 
system. 

2. Developing a hybrid which would 
be a cross between the menu system 
and the CPM system. 

3. Find a way to change the menus 
fast. 

I had to rule out the first option right 
off the top. A major rewrite just could 
not be done in the time available. The 
second option went very quickly after- 
wards. Though it would not mean a 
major rewrite, I just could not bring 
myself to do it (self respect again . . . 
drat it). All that left was changing the 
menus rapidly. 

There are two methods of updating 


the screen quickly. One is page flipping 
and the other is direct screen writing. 
Page flipping is the fastest method of 
changing the display known to a ATARI 
programmer. Just change two bytes in 
the display list and the whole screen 
changes. But with all this speed comes 
a few problems. 

One, you have to preset all of your 
menus. By that I mean you have to make 
sure that all of the characters in your 
menu have been offset correctly. This is 
because ANTIC has its own set of char- 
acter values which are very different 
from ASCII or ATASCII. Another prob- 
lem is arranging the menus in memory. 
The ANTIC is a bit touchy about which 
page boundaries get passed when 
describing the screen’s data area. (Hint: 
NEVER-EVER try to pass a 4K boun- 
dary!!) 

The worst problem with page flipping 
though was the amount of memory it 
would use. The “GRAPHICS 0“ screen 
mode uses 960 bytes for its Load Mem- 
ory Scan (LMS) or data area. Page flip- 
ping would require that a number of 
blocks this size be set aside for the ex- 
clusive use of the menu driver. Add to 
this the dead areas between the menus 
needed to prevent page boundary prob- 
lems and you can easily see that the 
amount of usable program memory is 
quickly diminished. 

That leaves direct screen writes. Do- 
ing direct writes also has its problems. 
The first, like page -flipping, is that most 
of the text requires offsetting. This is not 
a big problem. There are many ways to 
rectify this. You can precalculate the 
offsets or write a short program that 
does it for you. Another method is to in- 
clude an offset routine in the program. 
This is not very efficient for a menu 
driver but is very necessary when the 
text is varied or unknown. I actually use 
this method in the preceding demo. 

Another problem with direct writes is 
parameter passing. How do you tell the 
routine where the text is, how long it is 
and where on the screen to put it. The 


solution to this are also varied. The first 
that comes to mind is reserving a place 
in memory for the parameters. When 
dealing with BASIC though, it is easier 
to use the stack. 

This brings me to the BASIC demo 
that follows. The demo will permit a 
BASIC user to write directly to the 
screen. 

Tb call the routine you use the BASIC 
command 

A = USR(CDE,X,Y,ADR(A$),LEN(A$)) 

or the alternate 

A = (CDE,ADR(A$),LEN(A$)). 

CDE is the address of the machine code 
string. X is the screen column and Y is the 
row position where you want to start the 
display. A$ is the string to be displayed. 
If you do not pass a X and Y parameter, 
the routine assumes that you to want to 
use the present cursor position as default. 

The routine will display all characters 
with one exception. The EOL character 
(155) is used as a line delimiter. This for 
multi-line displays without the need of 
counting the characters. Tb go to the next 
line, simply insert an EOL character at the 
appropriate location in the string. One 
warning, the routine assumes that your 
starting column position is the left margin 
and will start from there. 

While we are on the subject of warnings, 
let me caution you about a few items. 

First, with the exception of screen posi- 
tion, the routine DOES NOT do any error 
checking. You can pass strings larger than 
the screen. This normally is not a problem, 
but forlorn is the person who does this 
with a relocated display list and no back- 
up! 

If you do make an error in the screen 
position, the value 141 (cursor out of 
range) will be passed back. 

Do not let the machine code call a 
subroutine. BASIC gets a little confused. 
The program does not crash, but does not 
work right. 

Along with the BASIC demo I have in- 
cluded the assembly listing of the routine. 
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A View From Japan 



By MAKOTO NAGATA 

2117 HASTE ST #310 
BERKELEY, CA 94704 

U.S . representative. 

Fuji Atari Computer Users Group , Japan 
Member, San Leandro Computer Club 

(Editor's note: The following set of superb articles 
are by new SLCC member Makoto Nagata. We have 
decided to devote a whole section to his articles. We 
hope to hear more from Makoto!) 

Hello to all of the members of the S.L.C.C. I really 
thank you for giving me a place to introduce our club, 
Fuji Atari Computer Users Group. 

One very unfortunate situation has made it ex- 
tremely difficult to maintain our club; there has been 
no dealer of Atari computers in Japan and no support 
from Atari itself. 

Our club was founded by Mr. Iori Fujita (who is now 
in Peru) and myself in 1982. Shortly before that time, 
several computer stores in Japan individually im- 
ported Atari computers and sold them. There were 
rumors that Atari had a plan to enter the Japanese 
market and it is likely that those dealers wanted to 
take them in advance. 

Of course we bought Atari because it was the best 
we had ever seen. But Atari did not come and one day 
we got letters from those computer stores saying, 
“Sorry, we are not going to support you any more. Here 
is a list of those to whom we sold Atari’s. It is your own 
choice to keep your Atari or throw it away and buy 
an Apple (!)’’. I sent letters to everyone on that list, and 
our club was founded. 

Although our club was started by Japanese who 
bought Ataris at those stores, there was another group 
of people out there weeping at their Atari in Japan; 
those Americans or Japanese who brought their Atari 
from the U.S. 

Mr. Iori Fujita was one of those people. He and those 


Americans, including Mr. Joe Langdon and Mr. Bob 
Rutherford, greatly helped our club by individually 
importing magazines, software and hardware from 
the U.S. I really thank those members for their devoted 
activities. 

Some of our members were so devoted that they 
almost ruined their usual activities, because we had 
to do everything by ourselves. 

Early on, our main activity was to ask Atari to sell 
their computers in Japan but we soon gave up 
because they would not listen to us. Atari has never 
supported us although our club has been an official 
one. We had to find another way to survive by our- 
selves. 

There was an Atari Coin-Op Division office in Tokyo 
before the selling of Atari last year. When we asked 
them, they very kindly did their best privately to sup- 
port us although they were not selling Atari com- 
puters. 

They bought hardware and software for us through 
their private connections with the Atari Home Com- 
puter Division and they gave us some technical 
manuals. They even offered us a room in their office 
for our monthly meeting. We helped them in return 
by giving information and advice about the Japanese 
market. It might have been the happiest period of our 
club. (I cannot thank Mr. Hight, the president of that 
former office, enough for his help.) 

Last year the new Atari company closed that Tokyo 
office and opened a new one (Mr. Hight and other peo- 
ple were fired). When we asked the new office to con- 
tinue to support us, they refused, saying, “We will 
never sell Atari computers in Japan.” I believe that 
a trusted company should support, or at least try to 
support, all the users of their products, wherever those 
users are. This was just what Mr. Hight tried to do. 
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Now we are forsaken again (forever?). We lost our 
last connection. We are holding our club meetings at 
a small cafe in Tokyo. I am really anxious about the 
future of our club. 

Despite our tough situation I believe our club has 
been very active, as might be seen in some of my re- 
cent uploads to your club BBS and in the accompany- 
ing articles. Most of our members are as creative and 
enthusiastic as you S.L.C.C. members. We developed 
lots of software and hardware by ourselves, including 
printer cables and 64K RAM boards. I really hope to 
be a bridge between our two clubs, although our club 
seems to be fading away now. 


I know that there are many almost-forsaken Atari 
users around the world. Mr. Iori Fujita recently re- 
ported to me about those in Peru. But there seems to 
be no other country like Japan, where there are many 
Atari enthusiasists and no dealers. Once we were even 
interviewed by a Japanese computer magazine 
because the editors were so interested in Atari. 

If some of you are going to Japan with your Atari, 
please do not forget to call our president Mr. Masayuki 
Hata at (03) 653-1258 (Tbkyo). You will not be alone 
in Japan cursing the poor support of the Atari 
company. 

(Some more information about our club can be 
found in Antic magazine, international edition.) 


DOS 2.0S Modification 


Makoto Nagata 

Fuji Atari Computer Users. Group, Japan 

This program modifies ATARI DOS 2.0S so that it 
can use non-resident handlers (such as R:) more 
safely. 

1. How to modify your DOS 2.0S 

Using ATARI BASIC, boot up a disk containing DOS 
2.0S and RUN “D:DOSMOD.UTL”. When the 
“READY” prompt appears, type “DOS [RETURN]” 
and write DOS files to your disk, using the H option. 
(Cf. DOS 2.0S Reference Manual pp.35-36) 

2. Theory of operation 

This modification allows the DOS to handle another 
autorun file named “DEV.SYS”. This file is like the 
usual “AUTORUN.SYS” file, but the process of loading 
and initializing it has the following differences: 

(1) BOOT-UP: The DOS first looks for a file nam- 
ed “DEV.SYS” in drive #1, and if it exists, that file is 
loaded into RAM and initialized just like an 
“AUTORUN.SYS” file. Then the DOS looks for an 
“AUTORUN.SYS” file as usual. (If there is no DEV.SYS 
file in drive #1, then it worksjust like the original DOS 
2. OS.) 

(2) SYSTEM-RESET: After re-initializing various 
registers and tables, the DOS examines the value at 
$1853 (called LDFLAG), and if its value is non-zero, 
it JSRs to the address contained in $1854, $1855 (call- 
ed INIVEC; LSB first), then returns to the cartridge. 
If the value at $1853 is zero, it re-loads the “DEV.SYS” 
file and initializes it before going back to the cartridge. 


(3) RETURNING TO THE CARTRIDGE FROM 
DUP.SYS: Before DURSYS returns to the cartridge, 
using option B, it re-loads the “DEV.SYS” file in drive 
#1 and initializes it. 


3. How to write a non-resident device handler 

Due to a bug in the OS, the HATABS is re-written 
at system-reset. So usually you can not press the 
RESET button while you are using a non-resident 
handler (such as R:). As explained above, using this 
modified DOS, your non-resident handler worksjust 
like resident handlers if you add an initialization 
routine which registers its name to the HATABS and 
sets values of registers $1853 to $1855 appropriately. 
Usually, $1853 should contain some non-zero value, 
and $1854, $1855 should contain the initilization 
address of the handler. 


REMARKS: 

1. So far no incompatibility has been found with 
the original DOS 2. OS. If you find any, please let the 
author know. 

2. The modification is done by using some redun- 
dant text regions in the original DOS 2.0S so some 
DUP.SYS messages are shortened, but still easily 
recognizable (such as: “NEED MEM.SAV TO LOAD...” 
is changed to “NEED MEM.SAV”). 

3 . Before going back to the cartridge from DUP.SYS, 
be sure that the disk used to boot-up is in drive #1. 
If the disk in drive #1 contains no (or another) 
“DEV.SYS” file, the handler in RAM might be deleted. 
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ly coarser) resolution, you should type OPEN 
#1,0,0,“G:”. You cannot change the resolution until 

FUJI ATARI COMPUTER USERS GROUP, JAPAN y° u CLOSE the device using a CLOSE //channel 

command. 


BY MAKOTO NAGATA 


1. Introduction 

This program was developed for beginning 
members of Fuji Atari Computer Users’ Group, Japan, 
to show what can be done with Atari’s unique Player- 
Missile graphics. 

The program is designed to let beginners experi- 
ence the fascinating world of PM graphics using 
readable commands, with no PEEKs and POKEs, as 
safely as possible. It allows the user to hit the [BREAK) 
or [SYSTEM RESET] keys at any time, or change the 
background graphics mode, without affecting the PM 
graphics, etc. 

This article does not contain any explanation of PM 
graphics. If you are not familiar with it, consult any 
of the many articles about it in various Atari-related 
magazines. 

2. Device “G:” - OPENing and CLOSEing 

This program is actually a device named “G:”. It 
analyzes a record (ending with an EOL) sent to it and 
goes to work. The first thing you do to use this device 
is OPEN it using the following command: 

OPEN#channel, resolution, 0,“G: 

where: 

channel = IOCB number 

resolution = 0 for double line resolution 
= 1 for single line resolution 

For example, if you want to use double line (vertical- 


The OPENing process does the following: 

1) resets various registers; 

2) calculates the necessary amount of memory for 
PM graphics of the desired resolution and relocates 
the BASIC workspace upward accordingly; 

3) changes the vertical blank interrupt routine so 
that pressing the BREAK key won’t destroy the PM 
graphics. 

The CLOSEing process is just the reverse of the 
OPENing process; i.e., relocating the BASIC work- 
space downward to the original address, resetting the 
VBI, etc. (All the PM graphics are erased.) 

Now, once you open the 4 ‘G:” device, you can send 
various commands to it. The commands are explain- 
ed in the next section. 

REMARK: To see how the BASIC workspace is 
relocated, PEEK the content of memory locations 128 
and 129 before and after the OPENing. 


3. Commands 

In all of the following, PM# is a number from 0 to 
7, which represents a Player-Missile number as 
follows: 

0-3: Player 0 to Player 3 
4-7: Missile 0 to Missile 3 
(fifth Player option is not supported.) 
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?#channel;“OBJ”PM#,address, length 

where: 

PM# = Player/Missile number 

address = starting address of the (binary) 

shape data 

length = number of data bytes to be sent. 

For example, if you want Player 0 to be of the 
following shape: 

10000001 (decimal 129) 

01000010 (decimal 66) 

00100100 (decimal 36) 

11111111 (decimal 255) 

00011000 (decimal 24) 

00011000 (decimal 24) 

first define a string (for example, D$) of length 6, us- 
ing a DIM D$(6), and write the data into D$ using a 
program as follows: 

100 FOR 1= 1 to 6:READ X:D$(I,I) =CHR$(X): 
NEXT I 

110 DATA 129,66,36,255,24,24 
Then (after OPEN #1,0,0,“G”) type: 

?# l;“OB J’\0,ADR(D$),6 

WARNING 1: You may not be able to see the shape 
of a Player or Missile until you have set up its position 
and color, as explained below. 

WARNING 2: For Missiles (PM- 4-7), only the least 
2 bits of the data is loaded into the Missile region. 

Current horizontal and vertical position data are 
always stored in internal registers, pointing to the 
upper-left corner of the Player/Missile shape. 

To change the position of a Player or Missile, use: 

?#channel;“POS”,PM#,x,y 

where: 

x = x-coordinate (0-255) 

y = y-coordinate (0-127 for double line resolution, 
and 0-255 for single line resolution). 

These coordinates correspond to the value to be 
stored in HPOSP# and the vertical offset. 

WARNING: If x or y is too small or too large, then 
that Player or Missile may be positioned beyond the 
screen edges, so it may not be seen. 

Tb change the color of a Player, type: 

?#channeI;“COLOR”,PM#,color,luminance 

This is just like the SETCOLOR command in BASIC. 


To change the size of a Player, type: 

?#channel;“SIZE”,PM#,size 

where "size” is either 1, 2, or 4. (1 is the smallest, and 
4 is the largest; a 4 means that each pixel is 4 times 
wider horizontally than the smallest.) 

WARNING: This “SIZE” command does not affect 
the vertical length. 

Tb change the priority, type: 

?#channel;“PRIOR”,data 

where "data” is the value to be POKEd into the PRIOR 
register. (Cf. Atari Hardware Manual). 

Tb let all the Players or the Missiles disappear or 
re-appear without changing their position or color 
data, type: 

?#channel;“DMA”,data 

where the value for “data” is: 

0: to let all the Players and Missiles disappear 
1: to let all the Missiles appear and all the Players 
disappear 

2: to let all the Players appear and all the Missiles 
disappear 

3: to let all the Players and Missiles appear 

§f||§tiii 

Tb clear the shape of a Player, type: 

?#channel;“CLR”,PM# 


LOCATE A PL AJHfcifc 03R V 

The vertical and horizontal positions are kept in 
internal registers. Tb get these data, type: 

?#channel;“LOC PM#,varl,var2” 

where “varl” and “var2” are the names of BASIC 
arithmetic variables. The horizontal position data is 
stored into the variable named “varl”, and the vertical 
position data is stored into the variable “var2”. For 
example, after the command ?#l;“LOC 0,XP,YP”, the 
horizontal and vertical position datas are in variables 
XP and YP. 

WARNING: The device cannot generate data area 
for new variables. So these variables must be used at 
least once somewhere in the program as usual 
variables. (Tb make sure, use nonsense commands 
like X = X etc.) 

You can read collision register values using a com- 
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mand like: 


?#channel;“HIT PM#,varl,var2” 

where “varl", “var2" are arithmetic variable names 
as above. The Player-Playfield collision data is return- 
ed to the variable named “varl" and the Player-Player 
collision data is returned to the variable named 
“var2". (Cf. Atari Hardware Manual). 


.w •• /, 

lb toggle the multi-colored Player option, type: 

?#channel;“MULT”data 

where “data" is 1 to enable multi-colored Player op- 
tion, and “data" is 0 to disable it. (Cf. Atari Hardware 
Manual). 


The “OBJ" command sends the shape data to the 
memory region pointed to by the current value in the 
internal vertical position register so that you can 
change the shape where ever the current position is; 

i.e., the new shape data overwrites the old shape data. 


Sometimes it is necessary to change the data in the 
vertical position register temporarily. To do this, type: 

?#channel;“RESV’\PM#,newdata 

(The current value in the vertical position register can 
be read using LOC command.) 

4. REMARKS 

1) The program’s command-analysis routine can 
read the values of BASIC variables directly from 
memory. So if you are not using arithmetic expres- 
sions, you may write that variable name inside the 
quotation marks; i.e., the command 

?#1;“P0S”,0,X,Y 

is equivalent to the following: 

?#l;“POS 0,X,Y” 

(where “X" and “Y" are variable names). But you can’t 
write ?#l;“POS 0,X*2,Y” instead of ?#1;“P0S",0, 
X*2,Y. 

2) This program: is located at $1CFC-$239F. The 
actual PMBASE value is stored at $1D96. No memory 
locations usually kept for user application are used 
by this program, including $CC-$D6, and 
$0600-$06FF. 


Utility Package 


Makoto Nagata 

Fuji Atari Computer Users ’ Group 
Japan 


This package consists of general purpose 
relocatable machine-language subroutines for BASIC 
users. 

This file is “LIST"ed, so use “ENTER" command 
to merge the utility package. 

1. General Description 

This package consists of the following: 

1. Hex-decimal conversions 

2. Binary-decimal conversions 

3. String Search 

4. Block Move 

5. Disk Access 

6. CIO Access 


7. 1 byte Search/Replace 

8. Basic Relocator* 

(The Basic relocator may not work on newer systems.) 

The program resides at lines greater than 30000 
and there is a single initialization point at 30000. To 
initialize all the functions above, type “GOSUB 
30000" (Actually, the initialization process consists 
of defining strings and storing machine-language pro- 
grams in them. So the initialization must be executed 
once and only once to avoid a re-dimensioning error.) 

2. REMARKS 

1. This package originally consisted of 10 separate- 
ly LISTed files. If you want to save memory you can 
decompose the package as follows: 


32 


Suppose that you want to separate SEARCH 
function. 

1. First, ENTER the package 

2. Delete all the lines between 30001 and 32766 not 
relating to SEARCH$. (Do not delete line 30000 and 
32767.) 

3. Type: LIST “DTilename” 30000.32767 

After separating all the functions in the package this 
way you can merge as many functions as you like 
without losing the initialization point. 

2. The in the description below represents any 
arithmetic variable. The content of that variable may 
be altered after the machine language execution. 

DECIMAL-HEXADECIMAL CONVERSIONS 

(WORDDEC and DECWORD) 

These programs are decimal-hexadecimal conver- 
sion programs. The WORDDEC Program converts a 
hexadecimal number into a decimal number and the 
DECWORD program converts a decimal number into 
a hexadecimal number. 

1. FORMAT 

Before using these subroutines, you should define 
a full string of length 4 (for example by the command 
DIM WORD$(4):WORD$(4) = “ ”) for hexadecimal 
numbers. Then after the initialization GOSUB 30000, 
type as follows: 

(1) Hex to decimal conversion: WORDDEC$ 

dec = USR(ADR(WORDDEC$),addr) 

where : addr : the address of the string con- 

taining the hexadecimal 
number (0000-FFFF) 
dec : corresponding decimal num- 

ber (0-65535) 

(2) Decimal to Hex conversion: DECWORD$ 

* = USR(ADR(DECWORD$), dec, addr) 

where: dec :the decimal number 

(0-65535) 

addr : the address of the string for 
the corresponding hex- 
adecimal number 

(0000-FFFF) 

REMARK: To use the WORDDEC subroutine, the 
hexadecimal number must exactly be of 4 digits. 

2. SAMPLE PROGRAM 

After ENTERing the package type in and run the 
following program. This is a simple hexadecimal 
listing program. 

10 DIM W0RD$(4] ,W0RD2$(4) :W0RD $=" " 

SO GOSUB 30000 

30 ? "ENTER STARTING ADDRESS IN HEX ";:INPUT 
WORDS $ 

40 WORD $="0000" : W0RD$(5-LEN(W0RDS$) )=W0RDS$ 

50 STA=USR [ADR (WORDDEC* ) , ADR(W0RD$) ) 

60 I=STA 

70 X=USR [ ADR [ DECWORD $], ADR ( WORD $ ) f I ): ?W0RD $; " "; 


80 D=PEEK ( I ) 

90 X=USR[ ADR (DECWORD*) , ADR (WORD*) ,D) :?W0RD$[3) 
100 1=1+1 :G0T0 70 

BINARY-DECIMAL CONVERSIONS 
(BINDEC AND DECBIN) 

These programs are binary-decimal conversion pro- 
grams. The BINDEC program converts a binary 
number to a decimal number and the DECBIN pro- 
gram converts a decimal number to a binary number. 

1. FORMAT 

Before using these subroutines you should define 
a full string of length 8 for binary numbers. Then after 
the initialization GOSUB 30000 type as follows: 

(1) Binary to Decimal: BINDEC$ 

dec = USR(ADR(BINDEC$),addr) 

where: addr : address of the string contain- 

ing the binary number 
dec : correspoding decimal 

number 

(2) Decimal to Binary: DECBIN $ 

* = USR(ADR(DECBIN$),dec,addr) 

where: dec : decimal number 

addr : address of the string contain- 

ing the corresponding binary 
number 

REMARK: Tb use the BINDEC program the binary 
number should exactly be of 8 digits. 

2. SAMPLE PROGRAM 

After ENTERing the package type in and run the 
following program. This is a simple binary to decimal 
conversion program. 

10 DIM B $ [ a ] ,B2*(8] :B*[8)=" " 

SO GOSUB 30000 

30 ?"B INARY NUMBER" ; :INPUT B2* 

40 B *="00000000" :B*(9-LEN(BS*] ]=B2* 

50 D=USR(ADR(BINDEC*) , ADR[B*) ) 

60 ?"BINARY " ; B * ; " IS ";D;" IN DECIMAL." 

70 GOTO 30 

3. MODIFYING THE DECBIN PROGRAM 

The machine language part of the DECBIN program 
contains a “0” character and a "1”’ character. These 
characters determine the form of the returned binary 
number. If the character “0” is replaced by ".’’and the 
character “1” is replaced by then the binary 
representation corresponding to decimal 13 (usually 
“00001101”) will be changed to 

STRING SEARCH (SEARCHS) 

This program searches for a smaller string in a 
larger one. 

1. FORMAT 

Suppose that we want to search a string A$ in a 
string B$. Then (after the initialization GOSUB 
30000) type as follows: 
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X = USR(ADR(SEARCH$),ADR(A$),LEN(A$), 
ADR(B$),LEN(B$)) 

X is the starting position of the first occurence of 
A$ in B$; i.e., B$(X,X + LEN(A$)-1) is just equal to A$. 
If A$ is not found in B$ (or the length of B$ is smaller 
than that of A$), then 0 is returned to X. 

2. SAMPLE PROGRAM 

After ENTERing the package, type in and run the 
following program. The Program replaces all the “AP- 
PLE in the entered string with “ATARI”. 

10 DIM A $ ( 5 ) ,B$(128) :A$="APPLE" 

20 60SUB 30000 
30 INPUT B $ 

40 X=USR(ADR( SEARCH $) , ADR(A$) ,5 , ADR ( B $ ) , LEN ( B$ )) 
50 IF X=0 THEN 80 
60 B $ ( X , X+4 ) = " ATARI" 

70 GOTO 40 
80 ?B$ 

90 GOTO 30 


BLOCK MOVE (BMOVE$) 

This program moves memory block. 

1. FORMAT 

* = USR(ADR(BMOVE$),addrl,length, 
addr2) 

where addrl : starting address of the origin 
block 

length : length of the origin block 
addr2 : starting address of the 
destination block 

REMARK: The origin and destination blocks may 
overlap. 

2. SAMPLE PROGRAM 
(Cf. BASIC RELOCATER) 

WARNING: This program may not work on newer 
systems. 

After ENTERing the package, type in and run the 
following program. This defines a custom character 
font where the “space” character is replaced by the 
“underline” character. 

10 G0SUB 30000 

20 BLH=PEEK(1 29 ) : MLH=PEEK(744) 

30 CB= ( INT ( BLH/ 4] +1 ) *4: I F BLH>MLH+7 THEN 60 
40 NB L=CB+4 

50 X=USR ( ADR ( RELOCS ) , NBL*256 ] 

60 RCB=57344 

70 X=USR(ADR(BM0VE$) , RCB.1024, CB*256) 

80 POKE CB*256+7,255 
90 POKE 756 , CB 

100 ?"CHARACTER BASE IS CHANGED TO ";CB 
110 END 

REMARKS: 

lines 10-40 calculates new BASLO and character 
base 

line 50 relocates BASIC workspace if necess- 
ary 


line 60 RCB is the address of ROM character 
font 

line 70 copies the ROM character font 
line 80 modifies the character of the “space” 
line 90 changes the CHBAS value 

DISK CONTROLLER (DSKCTRLS) 

This subroutine enables you to access directly to 
the disk sectors (without DOS). 

1. FORMAT 

Before using this subroutine, you should define a 
sector buffer. This is a 128-byte RAM region and the 
content of this buffer is transferred to the specified 
sector (“write” operation) and vice versa (“read” 
operation). The safest way to define such a sector 
buffer is to define a full string of length 1 28 using com- 
mands like DIM B$(128):B$(128) = “ ”. 

Then type as follows (after the initialization GOSUB 
30000): 

status = USR(ADR(DSKCTRL$),rwf, 
bufadr, sector) 

where : rwf : = 4 for read operation 

: = 8 for write operation 
bufadr : the address of the sector buffer 
sector : specified sector number (1 -720) 
status : status of operation ( = 1 if 
complete) 

(For various values returned to the variable “status”, 
see the ERROR CODE TABLE in ATARI BASIC 
REFERENCE MANUAL.) 

2. SAMPLE PROGRAM 

After ENTERing the package, type in and run the 
following program. This program displays the content 
of the specified sector in ATASCI1 form. 

10 DIM B$(128] :B$(128)=" " 

20 GOSUB 30000 

30 ? "SECTOR NUMBER";: INPUT S 
40 X=USR ( ADR ( DSKCTRL® ] , 4, ADR ( B$ ] , S ) 

50 IF XOI THEN ? "ERROR ";X;" AT ";S:G0T0 30 
60 POKE 766,1 
70 ? B $ 

80 POKE 766,0 
90 GOTO 30 

CIO CONTROLLER (CIOCTRL$) 

This subroutine enables you to access directly to 
the ATARI Central I/O system. (Cf. Atari Operating 
System Users’ Manual). 

1. FORMAT 

status = USR(ADR(CIOCTRL$),iocb,iccom,icba, 
icbl,icaxl,icax2) 

(icaxl, icax2 are optional) 

where: iocb :IOCB number (0 - 7) 

iccom :CIO command code 
icba :CIO buffer address 

icbl :CIO buffer length 
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icaxl :ICAX1 
icax2 :ICAX2 

status :ICSTA ( = 1 if the operation is 
complete) 

2. SAMPLE PROGRAMS 

There are many applications of this subroutine. 
Here are some of them: 

(1) READING BINARY DATA FROM A DOS FILE 

OPEN #l,4,0,“D:filename” 

X = USR(ADR(CIOCTRL$),l,7,BUFADR,BUFLEN) 
CLOSE #1 

The program above reads the binary data of length 
BUFLEN from a DOS file, and stores it in the RAM 
region starting at BUFADR. 

(2) WRITING BINARY DATA TO A DOS FILE 

OPEN #l,8,0,“D:filename” 

X = USR(ADR(CIOCTRL$),l,ll,BUFADR,BUFLEN) 
CLOSE #1 

The program above writes the binary data in the 
RAM region starting at BUFADR of length BUFLEN 
to a DOS file. 

(3) READING BINARY DATA FROM CASSETTE 
(FASTER THAN USING GET) 

OPEN #1,4,128,“C: 

X = USR(ADR(CIOCTRL$),l,7,BUFADR,BUFLEN) 
CLOSE #1 

The program above reads binary data of length 
BUFLEN from cassette and stores it in the RAM region 
starting at BUFADR. This is faster than using GET 
command. 

(4) WRITING BINARY DATA TO CASSETTE 
(FASTER THAN USING PUT) 

OPEN #1,8,128,“C: 

X#USR(ADR(CIOCTRL$),l,ll,BUFADR, BUFLEN) 
CLOSE #1 

The program above writes the binary data in the 
RAM region starting at BUFADR of length BUFLEN 
to cassette. This is faster than using PUT command. 

(5) DIRECT INPUT FROM THE EDITOR 

After ENTERing “D:CIOCTRL.LST‘, type in and run 
the following program. 

ID DIM A$(128) :A$(128)=" ":GOSUB 30000 
20 X=USR(ADR( CIO CTRL $) ,0,5, ADR(A$) ,128) 

3D IF XOI THEN STOP 
40 L=PEEK [ 840 ) 

50 IF L=1 THEN 20 
60 ?A$ [ 1 , L-1 ) 

70 GOTO 20 


This enables you to input a string from Editor 
without using BASIC’s INPUT command. The “?” 
prompt does not appear. 


SEARCH AND REPLACE (SEAREP$) 

This program is a general search-and-replace pro- 
gram: of 1 byte data. Since this program allows you 
to use data masks, you can use it as a “fill data” 
program. 

1. FORMAT 

There are three formats. 

(1) * =USR(ADR(SEAREP$),addr,length,datal, 

data2) 

In this format, a machine language program cor- 
responding to the following BASIC program is 
executed: 

10 FOR I = addr TO addr + length - 1 
20 IF PEEK(I) = datal then POKE I,data2 
30 NEXT I 

(2) * = USR(ADR(SEAREP$), addr, length, datal, 
data2,maskl,mask2) 

In this format, the search and replace operation is 
masked by the “mask” variables. If we denote the 
binary AND of two numbers by BAND[a,b] , the binary 
OR of two numbers by BOR[a,b], and the binary EOR 
of two numbers by BEOR[a,b], then the operation is 
expressed in a BASIC-like form as follows: 

10 FOR I=addr to addr+length-1 

20 IF BAND [PEEK [ I ] , maskl ] Oda tal THEN 50 

30 X=PEEK(I) :Y=BE0R[mask2,255] :Z=BAND[X, Y] 

40 W=BAND[data2,mask2] :P0KE I,B0R[Z,W] 

50 NEXT I 

(If you do not know about binary AND, OR or EOR 
operations, see any book about microprocessors.) 

(3) * =USR(ADR(SEAREP$),addr,length,datal, 
data2,mask) 

This format is the shortened form for 
* = USR(ADR(SEAREP$),addr, length, datal,data2, 
mask, mask). See (2). 

2. SAMPLE PROGRAMS 

After ENTERing the package, type in and run the 
following programs: 

(1) This replaces all the “A” in the entered string with 
“a”: 

10 DIM A$(128) 

20 G0SUB 30000 
30 INPUT A$ 

40 

X=USR ( ADR ( SEAREP$) , ADR ( A$ ) , LEN ( A$) , ASC( "A" ) , ASC( " 
a") ) 

50 ?A$: GOTO 30 


(2) This inverts all the normal characters in the 
entered string: 
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10 DIM A$ ( 1 28 ) 

20 60SUB 30000 
30 INPUT A$ 

40 X=USR ( ADR ( SEAREPJ) , ADR ( A$) , LEN ( A$) , 0 ,1 28 ,1 28 } 
50 ? A$:G0T0 30 


(3) (FILL DATA) 

This program fills the whole screen with 
10 GRAPHICS 0 

20 ME M= PEEK ( 88 ]+PEEK( 89 ) *256 

30 X=USR ( ADR ( SEAREP$) , MEM, 40*24, 0, ASC("*") ,0, 255 


BASIC RELOCATER (RELOC$) 

This program relocates the BASIC workspace. 

1. BASIC WORKSPACE 

The BASIC workspace is the RAM region which con- 
tains all the necessary information for BASIC to run; 
i.e., program statements, names of variables, etc. 

2. POINTERS 

There is a pointer which contains the lower boun- 
dary of the BASIC workspace; 

BASLO $80,$81 [128,129] (LSB.MSB) 

On the other hand, there is a pointer which contains 
the upper boundary of the RAM region used by the 
Operating System: 

MEMLO $02E7,$02E8 [743,744] 

This program relocates the BASIC workspace to the 
region starting at the specified address. This changes 
the BASLO pointer value to the specified one, but the 
MEMLO pointer remains unchanged. The BASLO 
pointer and the MEMLO pointer usually coincide. 

^ |_ ********** 

$0000 workspace 

MEMLO 

BASLO 

_| | ********** _| 

$0000 workspace 

MEMLO 

BASLO 

The RAM region between MEMLO and BASLO is 
then user-free, and you can store your custom 
character font or non-relocatable machine language 
programs there. 



4. REMARKS: 

(1) This program does not interfere with the BASIC 
program execution so you can write a BASIC program 
which runs relocating itself. 

(2) You can relocate the BASIC workspace downward 
but the BASLO pointer value must always be equal 
or greater than the MEMLO pointer value 

(3) Once the BASIC workspace is relocated, it is not 
re-relocated by SYSTEM RESET so the user-free space 
between MEMLO and BASLO remains safe until power 
is turned off. 

(4) This program may not work on newer systems. 
If this program does not work on your system, please 
let the author know by posting a message on the Kev 
System BBS. 



3. FORMAT 

After ENTERing the package and the initialization 
GOSUB 30000, type: 

X = USR(ADR(RELOC$),newbaslo) 

where: newbaslo : new value for the BASLO pointer 
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ATR - 8000 SIG 


by Bill George 

Our ATR-8000 Special Interest Group 
has been meeting for about 8 months now. 
We have been concentrating mainly on the 
ATR’s CP/M capabilities. We have issued 
seven CP/M public domain floppy-of-the- 
months. The source of our CP/M programs 
is 60 megabytes of public domain pro- 
grams on 300, 250k eight inch floppies. 
I estimate that there are roughly 10,000 
programs on those disks. The cream of 
these programs are placed in our floppy- 
of-the-month. 

Recently several of our SIG members 
have obtained and installed Co-Power 88 
boards in their ATR-8000s. So, our SIG is 
exploring 16 bit MS-Dos and CP/M 86 
operating systems. We have been collec- 
ting public domain software that will run 
on MS-Dos and will soon issue a public do- 
main MS-Dos floppy. We will do likewise 
with CP/M 86 programs. For this special 
edition I am presenting you with a con- 
densed catalog listing of all programs from 
our first seven CP/M floppies. You will be 
interested to know that we have chosen the 
Kaypro single sided, double density format 
for our floppy. This format was chosen 
because almost any 5" CP/M computer can 
read the Kaypro format and because it 
holds a bit more data than the other for- 
mats (191k). 

The price of these floppies is $9 each. 
Mail your checks and which floppy 
number you want, to the San Leandro 
Computer Club, CIYM Floppy of the Month, 
PO Box 1525, San Leandro, California, 
94577-0152. Allow about a month and a 
half for delivery. 

ATR-8000 CP/M Floppy of the Month 
Disks 1 - 7 
Nov 84 - May 85 


Prog ram 

Name 

Di sk 
No. 

Size 
i n K 

ALGOLM . HLP 

- 07 - 

13K 

ALLCHARS. PIC 

- 07 - 

4K 

AMAZE .BAS 

- 04 - 

4K 

AMAZE . INT 

- 04 - 

3K 

ANYCODE .ASM 

- 06 - 

3K 

ANYCODE .DOC 

- 06 - 

20K 

ASM .HLP 

- 03 - 

4K 

AS M2 .HLP 

- 03 - 

4K 

BIOPRINT. BAS 

- 04 - 

7K 

BIOPRINT. INT 

- 04 - 

6K 

C .HLP 

- 03 - 

17K 

C8411D0C. 

- 02 - 

3K 

KCBASIC2 . HLP 

- 07 - 

22K 


CDIR .COM 

- 

06 

- 

8K 

MASM .HLP 

- 

07 

- 

8K 

CD I R .DOC 

- 

D6 

- 

2K 

MEMLINK .COM 

- 

02 

- 

IK 

CDIR/BD .0 

- 

06 

- 

8K 

ML0AD23 .OBJ 

- 

06 

- 

3K 

COMBINE .ASM 

- 

07 

- 

7K 

NOTE .COM 

- 

02 

- 

20K 

COMBINE .COM 

- 

07 

- 

IK 

NOTE .DOC 

- 

02 

- 

2K 

COMPARE .ASM 

- 

07 

- 

4K 

NSWP205 .COM 

- 

01 

- 

1 1 K 

COMPARE .COM 

- 

07 

- 

2K 

NSWP205 .DC1 

- 

01 

- 

2K 

CPM .HLP 

- 

03 

- 

31 K 

NSWP205 .DOC 

- 

01 

- 

28K 

CPM2 .HLP 

- 

03 

- 

37 K 

NSWP207 .COM 

- 

02 

- 

12K 

CPMADR .C 

- 

06 

- 

3K 

NSWP207 .DOC 

- 

□ 2 

- 

32K 

CPMADR .COM 

- 

06 

- 

6K 

NULU .COM 

- 

03 

- 

14K 

D .COM 

- 

03 

- 

3K 

NULU .DOC 

- 

03 

- 

40K 

D .HLP 

- 

03 

- 

5K 

NULU .DOC 

- 

06 

- 

57K 

DISPLAY .COM 

- 

03 

- 

3K 

NULU11 .COM 

- 

06 

- 

15K 

DISPLAY .HLP 

- 

03 

- 

3K 

NULU11 .NOT 

- 

06 

- 

IK 

DU-VB6 .COM 

- 

07 

- 

BK 

NULU11F1 .ASM 

- 

06 

- 

2K 

DU-VB6 .DOC 

- 

07 

- 

13K 

NULUTERM. ASM 

- 

06 

- 

3K 

EBASIC .COM 

- 

04 

- 

12K 

OTHELLO .BAS 

- 

05 

- 

16K 

EBASIC .HLP 

- 

04 

- 

12K 

OTHELLO .DOC 

- 

05 

- 

5K 

EBASPRG .HLP 

- 

04 

- 

3K 

OTHELLO .INT 

- 

05 

- 

1 1 K 

ELSE .ASM 

- 

02 

- 

6K 

PAUSE .COM 

- 

06 

- 

5K 

ELSE .COM 

- 

02 

- 

IK 

PAUSE/BD. C 

- 

06 

- 

2K 

ENDIF .ASM 

- 

02 

- 

IK 

PAUSWAIT . ASM 

- 

05 

- 

8K 

ENDIF .COM 

- 

□ 2 

- 

IK 

PAUSWAIT.COM 

- 

05 

- 

IK 

ERUN .COM 

- 

04 

- 

12K 

POET .BAS 

- 

04 

- 

4K 

FINDBAD .COM 

- 

02 

- 

2K 

POET .INT 

- 

04 

- 

2K 

FINDBAD .DOC 

- 

02 

- 

3K 

PRINT .COM 

- 

05 

- 

5K 

FINDBD54. ASM 

- 

02 

- 

32K 

PRINT .DOC 

- 

05 

- 

3K 

FINDV40 .ASM 

- 

05 

- 

15K 

QUICKKEY.COM 

- 

03 

- 

2K 

FINDV40 .COM 

- 

05 

- 

2K 

QUICKKEY. HLP 

- 

03 

- 

2K 

FINDV40 .DOC 

- 

05 

- 

3K 

QUOTES . PRN 

- 

06 

- 

13K 

FMAP-PD .COM 

- 

05 

- 

2K 

READ .ME 

- 

04 

- 

IK 

FMAP-PD .DOC 

- 

05 

- 

2K 

RESOURCE.COM 

- 

01 

- 

1 0K 

FMAP-PD .HLP 

- 

05 

- 

2K 

RESOURCE. DOC 

- 

01 

- 

26K 

GOTO .ASM 

- 

02 

- 

6K 

REZBO .COM 

- 

01 

- 

7K 

GOTO .COM 

- 

02 

- 

IK 

REZ80 .DOC 

- 

01 

- 

IK 

HELP .COM 

- 

03 

- 

2K 

SECTRAN .C 

- 

06 

- 

IK 

HELP .COM 

- 

05 

- 

5K 

SECTRAN .COM 

- 

06 

- 

4K 

HELP .COM 

- 

07 

- 

5K 

SHOW .ASM 

- 

04 

- 

1 0K 

HELP .HLP 

- 

03 

- 

7K 

SHOW .COM 

- 

04 

- 

IK 

HELP .HLP 

- 

04 

- 

2K 

STORY .BAS 

- 

04 

- 

7K 

HELP .HLP 

- 

05 

- 

2K 

STORY .INT 

- 

04 

- 

5K 

HELP .HLP 

- 

07 

- 

IK 

SUPERSUB.COM 

- 

01 

- 

2K 

HELP-PLN.COM 

- 

05 

- 

5K 

SUPERSUB . DO C 

- 

01 

- 

4K 

HELP-TRS.COM 

- 

05 

- 

5K 

SUPERZAP.COM 

- 

01 

- 

6K 

HELP- V20. ASM 

- 

04 

- 

39K 

SUPERZAP. DOC 

- 

01 

- 

1 1 K 

HELP-V20.COM 

- 

04 

- 

4K 

SURVEY3 .ASM 

- 

06 

- 

13K 

HELP- V20. HLP 

- 

04 

- 

24K 

SURVEY3 .COM 

- 

06 

- 

IK 

HELP- V20. HLP 

- 

07 

- 

24K 

SYNONYM .COM 

- 

02 

- 

2K 

HELP-V21 .ASM 

- 

05 

- 

40 K 

SYNONYM .DOC 

- 

02 

- 

IK 

HELP-V21 .COM 

- 

05 

- 

5K 

SYN0NYM3 .ASM 

- 

05 

- 

1 2K 

HELP-V22.COM 

- 

07 

- 

5K 

SYNONYM3.COM 

- 

05 

- 

2K 

IF .ASM 

- 

02 

- 

1 1 K 

SYNONYM3.DOC 

- 

05 

- 

7K 

IF .COM 

- 

02 

- 

2K 

TED .COM 

- 

02 

- 

17K 

IF .DOC 

- 

02 

- 

9K 

TED .DOC 

- 

02 

- 

23 K 

LANDER -BAS 

- 

04 

- 

5K 

TRANSLAT.COM 

- 

01 

- 

3K 

LANDER .INT 

- 

04 

- 

3K 

TRANSLAT.DOC 

- 

01 

- 

IK 

LISTT .COM 

- 

03 

- 

2K 

UNERA11 .ASM 

- 

05 

- 

6K 

LISTT .HLP 

- 

03 

- 

IK 

UNERA11 .COM 

- 

05 

- 

2K 

LOAN .BAS 

- 

04 

- 

3K 

WUMPUS .BAS 

- 

05 

- 

9K 

LOAN . INT 

- 

04 

- 

2K 

WUMPUS .INT 

- 

05 

- 

6K 

LRUN -COM 

- 

03 

- 

2K 

YANC .COM 

- 

01 

- 

32K 

LRUN .HLP 

- 

03 

- 

IK 

Z80 .LIB 

- 

01 

- 

6K 

MAC .HLP 

- 

07 

- 

BK 

Z80ASM .COM 

- 

01 

- 

9K 
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by Lois Hansen 

You will not mistake Atari Corp. for Atari Inc. were 
you to visit them. There are no hanging plants, thick 
carpets, fountains, expensive furniture or free coffee 
and donuts. What there is in the reception area are 
packing crates, slightly shabby furnishings, a front 
door that does not close properly and a bulletin board 
skewered haphazardly with pink while-you-were-outs. 
People hurry about without the collegiate good- 
vibsing characteristic of old Atari and many other 
Silicon Valley campus companies. Atari Corp is rock 
bottom business. 

Inside and upstairs it looks like they are preparing 
for a garage sale. All manner of computers and 
peripherals, from DECs to IBM PCs to Macintosh (and 
you can bet there are Commodores) are strewn 
around; some in service, others piled on the floor and 
on top of each other. Inside the cubicles no one seems 
paranoid about who the hell I am. Perhaps they have 
users in every day to try out the goods. 

I sit down in a crowded cubicle kindly vacated for 
me by Richard, a software tester. We are still making 
Smalltalk when an exterminator walks by, pumper in 
hand. After my comment to the effect that “you guys 
leave no rock unturned”, Richard escapes to exter- 
minate his bugs and I get down to serious testing of 
Dr. Logo on the ST. There is scarcely room on the table 
to operate the mouse so I use a notepad. 


Richard and my host, John Feagans, left me to my 
own devices for hours. I cruised the computer, not 
reading any of the documentation left for my enjoy- 
ment. I had a fine time, and just when I was thinking 
I really should get going back to Oakland, John 
returned to hear my comments. 

What is the Jackintosh like to use? You have to get 
used to the mouse and windows. It is easy to overshoot 
the mouse but just as easy to get rid of what you did 
not want. I did not get into any trouble that I could 
not get out of. Logo did not come right up, since I was 
using a disk version (it will end up resident in the ST). 
I had to figure out how to get it off the disk but it was 
very obvious. 

What is the Logo like? Is it like the Atari Logo we 
know and love, from LCSI, nearly identical to Apple 
and IBM? No, it is not. It is Dr. Logo, if you ever saw 
that, written by Gary Kildall himself and released in 
August of 1983 to run under CP/M on the IBM PC. Most 
of the commands are the same as LCSI Logo. The 
main difference is that it comes up with a screen split 
sideways between graphics and text and it has a trace 
feature that allows you to watch the commands at the 
same time your drawing is executing. On the Jack you 
can cause all three screens to be visible at once, due 
to windowing. In the Edit Mode, the cursor control 
commands are Control F, B, N, etc. instead of using 
the arrow keys but Atari might change that. The use 
of color in Logo on the ST, despite the alleged 512 col- 
ors, is more like Apple and IBM than Atari 800. You 
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can not flash your background through even 127 col- 
ors and luminances, except perhaps, by including 
pallette-change commands in your program. In hi-res 
you get no color, in med. res. you get 4 at any one time 
(although you can change which 4), and in low res. 
you get 16 at a time. You get similar numbers of col- 
ors in the pen (only one pen, although you can vary 
the brush width) and, of course, there is only the one 
turtle, a triangle. The list processing is similar to IBM, 
which is a great improvement over cartridge Atari 
Logo. For adult use, this is definitely the Logo to have 
on Atari. 

Is this a better deal than Atari Logo on the 800 XL 
or XE? I hate to hedge but all questions like this 
require questions back: how much money have you 
got and what else do you want to do with the com- 
puter? For people who have not wanted to spend $350 
on a “kid’s’ 1 computer and drive that they felt the 
adults would not use, here is a way to really com- 
promise. You have to spend $800, but you get the latest 
thing in “adult” software and hardware as well as Logo 
for your kids in a version that you will enjoy too. This 
Logo is not identical, but close enough, to that used 
in schools. 

Are you going to be annoyed to have a ST computer 
you can not program? I mean, this computer does not 
have BASIC in it yet! Earlier machines are going to 
come with some applications and Logo but no BASIC. 
You have spent years, getting good at BASIC, Atari 
BASIC at that, and now they give you this poor man’s 
paint program and wish you good luck. Why would 
an adult want to learn Logo? 

Why did you want to learn BASIC? Because you 
wanted to gain access to this new thing; to learn a new 
way to organize your thoughts. In BASIC, the inner 
workings of the computer dictate that you must 
organize your thoughts in a linear fashion. In order 
to avoid chaos in BASIC you have to be very careful 
with your GOTOs and GOSUBs and remember what 
all your strings refer to. Logo came along on machines 
with larger memory allowing you to define small 
procedures with abandon and organizing them later 
into one or more superprocedures. Many people feel 
that this is more the way people, as opposed to 
machines, think. Or, shall we say, the way right- 
brained people think. Not that you must think non- 
linearly in Logo but you can. There are no line 
numbers in Logo and you do not have to reduce ideas 
to numbers so you can compare them mathematical- 
ly. You go through Logo “words” and “lists”, 
separating them out with “butfirsts” or, as one adult 
Logo student put it, “butt first”. It is a totally different 
way to think. It is one of the most engaging occupa- 
tions you will ever have on a computer (if you like to 
think about thinking). Elsewhere in this issue you can 
find a Logo Program of this sort that runs with Atari 
Logo. Try it and pick up a book about Logo such as 
Harold Abelson’s Apple Logo , or David Thornburg’s 
Discovering Apple Logo. It is not just a kids’ language 
at all; it is a language for adults who like psychiatry, 
literature, movies or other stimuli that cause them to 
examine their own or others’ thought processes. 


DigitalAlarm Clock 

by STEVE KUNZE 
Age 14 

Adelaide Atari Club, Australia 

Tb change the time loop the computer 
uses for each second you must change 
the variable “time” in line 4 of the pro- 
gram according to this formula: 

A = Actual elapsed seconds 

B = Elapsed seconds on computer 

TIME - TIME/A xB 

For the purposes of setting “TIME” 
correctly, I thoroughly recommend to 
leave the program running for at least 
10-15 minutes so that your result will 
be an exact average of time. 

Also note that when you enter your 
data for the clock, the program will not 
start working until you press START! 
This is a safety precaution. You have to 
take this into consideration when enter- 
ing your data and give yourself about 30 
seconds if you want the alarm, and 10 
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by Frank Pazel - JAGG 

THE FORM LETTER 

The good folks at the former Atari Inc. 
gave us what is probably the best word 
processor for any PC, bar none. It is easy 
to learn, handles just about any kind of 
request, is loaded with features and is 
absolutely dirt cheap. With the advent 
of the APX Printer Driver almost any 
printer works with it and the use of 
Atspeller is a godsend to those less lex- 
ical. It is, in short, superb. 

Now, these very same departed pro- 
grammers had a few tricks up their col- 
lective sleeves when they put this ROM 
together. However, they were not entire- 
ly honest in reporting all the surprises 
packaged inside. Or perhaps they did 
tell all with some points lost between 
technical writer and manufacturing. In 
any event I am going to try to report 
what I have gathered from various 
sources and discovered through experi- 
mentation about the often demeaned 
Atariwriter. 

Hidden inside the cartridge lies the 
latent ability to create form letters 
automatically with a mail merge, block 
eopy text from one file to another and 
unleash a resident modem handler. 
First I will discuss the mail merge. 


MAIL MERGE 

There have been a couple of articles 
written on this feature in other newslet- 
ters but following their instructions led 
to frustration and no results. It turns out 
that a key point was always left out that 
I stumbled on almost by accident. Here 
is my report on how to get your Atari- 
writer to function as a bonafide business 
type form letter producer. 

A form letter, for definition purposes, 
is a document which will contain per- 
sonalized information. The bulk of the 
letter is the same for each addressee. 
You get these things in the mail every 
week telling you how you might just 
have won 10 billion dollars. Suppose you 
have the need to produce such a letter. 
Perhaps your club needs to send out a 
mailing which, would look nice person- 
alized or might attract more attention 
if the receiver’s name appears inside the 
text. Using normal Atariwriter func- 
tions write the letter. However, wherever 
you want to personalize the text hold 
down the OPTION key and the insert key 
at the same time. An inverse ESCape 
character will be printed on the screen 
in that position. Later on, when you ask 
Atariwriter to PRINT your document 
the program and printer would normal- 
ly halt and allow you to type in the miss- 
ing information. This procedure is 
detailed on page 39 of the Atariwriter 
manual. As the manual says, “. . . leave 
blanks in a text file . . . . and fill them in 
each time you print the file.” This is ex- 
actly what we want to avoid. We want 





to create a file which will automatically 
merge with our letter file and insert the 
missing information for us. 

When you are sure your letter is exact- 
ly like you want, SAVE it. Make accurate 
notes of how many blank items you 
need to fill in and what the information 
needs to be. For example, the first three 
ESCape characters might represent 
name, street address, and town and 
state. Create a new file in the following 
manner. 

1. Enter the Editor and delete the 
entire format line. Yes. You should now 
be looking at a blank blue page which 
used to have inverse letters with 
numbers after them. This is the abso- 
lutely crucial step in making this pro- 
cess work. 

2. Using your notes about the empty 
blanks in your letter type in the miss- 
ing information with a RETURN at the 
end of each piece of information. Use no 
blank line and continue typing in your 
repeating series of data. You are creating 
a “sort of’ data base for the letter. 
Hopefully, you will design it so it can be 
used for other things. The addresses, for 
example, can be used to make up labels 
later on. 

3. SAVE this file. I use the name 
MERGE but you use your favorite. Count 
the number of records in this file. A 
record is all of the information you need 
to print one letter. It might be something 
like name, street, and city-state. The 
number of records will equal the num- 
ber of different documents you are go- 
ing to print. You have ten different 
names with addresses in your MERGE 
file; you are going to print ten different 
personlized letters. 

4. LOAD your letter into Atariwriter. 
Tlirn on your printer. Position your 
paper. Begin the PRINT series. At the 
prompt “PRINT WHOLE DOCU- 
MENT?” answer Y. 

5. At the prompt “NUMBER OF 
COPIES” type in the number should 
equal the number of records in your 
MERGE file. The maximum is 99. 

6. At the prompt “MAKE ENTRY, 
PRESS RETURN”, hold down the Con- 
trol Key and press V (CTRLV) and you 
should hear the one key click. Now type 
in the specifications of your data file, 
e.g., D:MERGE. Make sure your file disk 
is in your active drive. 

7. As soon as you press RETURN the 
printer should come to life and begin 
churning out your form letters. If you 
have specified right hand justification 
(Jl) each letter will be printed with the 
personlized information properly justi- 
fied. It’s near magic! 
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PHONE LINES AND BLOCK MOVES 

The Atariwriter ROM has, in addition 
to the ability to do a form of mail merge, 
the mechanism to transfer files via a 
modem. 

In order to use this hidden modem 
handler you must boot up a copy of the 
original DOS 2.0 Master Diskette which 
came with your disk drive. Most people 
are unaware that stuck away on it is the 
RS232 information for handling mo- 
dem operations. If you are using OSS 
software it is a file called “RS232.COM”. 
Both communicators must be running 
through a 850 Interface Module. Using 
OPTION E rename it “AUTORUN.SYS” 
and you are in business. Once both ends 
of the telephone connections have con- 
tacted each other files are SAVEd or 
LOADed from “R:filename”. Try it and 
save some transfer time. 

The final little trick that Atariwriter 
will do for you is a variation on its 
Duplicating Tbxt feature. Rather than 
using the copy function to copy within 
a file you can use it just as well to copy 
from file to file. Use the Duplicating Tfext 
sequence described on page 37 of the 
instruction manual. This amounts to 
marking the beginning and ending of 
the text block you want to move with a 
CTRDX. At this point, however, press 
ESC and return to the menu. Use SEL 
ECT to Create a new file or Load a file, 
depending on how you want to use your 
extracted block of text. If you load a file, 
enter the editor, position the cursor 
where you want to enter the saved block 
of text and press OPTION D. The saved 
file has been residing in the copy file buf- 
fer and can be used again and again. 
This is especially handy if you are 
preparing a report which uses a special 
format that must be repeated, lb repeat 
copy just place the cursor where you 
want to replicate the saved block of text 
and press OPTION D. No need to remark 
and save it each time. If you save a new 
block of text with CTRDX, that new text 
will, of course, replace the previously 
saved block. 

The Atariwriter is truly a fine piece of 
software. Each day I wonder how I could 
get through my workweek without it. If 
you discover some new or undocument- 
ed features please send them along so 
we can publish them for the good of the 
order. 

Thanks for some of the source 
material for this article goes to Clyde 
Pritchard of the Portland Atari Club and 
an article in the ACE of Syracuse news- 
letter. 


Recursion in Atari Logo 

By Lois Hansen 


The main feature that convinces you 
that Atari Logo is not just for children 
is recursion. Unlike other languages 
which somewhat resemble logical 
thought, or some other kind of sequen- 
tial thinking, Logo (and Lisp, from 
which Logo derives) forces you do do 
business through recursion. 

What is it? Not any easy question, as 
they say. Let me tell you a story, com- 
bined from three in David Touretzky’s 
excellent Lisp book: A poor fool had to 
find out how many slices of bread were 
in the loaf a nasty dragon had, so he 
could win the hand of the local princess. 
He approached the dragon fearfully and 
asked, “Please, sir, tell me how many 
slices of bread you have!” The dragon 
roared fearsomely and said, “I will not 
tell you how many I have, but I will give 
you the first slice.” With that, the dragon 
fell asleep, feeling guilty that he was so 
mean, even for a dragon. He got to 
wondering how many slices were in his 
loaf. He dreamed of another dragon with 
the loaf minus one slice. That dragon 
dreamed of another dragon holding the 
loaf minus one more slice and that 
dragon dreamed of another dragon 
holding an ever shorter loaf, who dream- 
ed of yet another dragon .... None of 
them could figure out how many slices 
they had until the dragon whose loaf 
was so small, it did not exist. He had the 
empty loaf and he was ecstatic. He woke 
up the dragon before him and told that 
dragon that his loaf had one slice. That 
dragon woke up the one before him and 
told him he had one plus one slice. All 
of the dragons were happy as they were 
awakened in turn with the good news 
because they could now figure out how 
many slices they had and the prince 
could go back with his riddle solved and 
marry the princess. 

Now this may seem like the long way 
around in terms of problem solving. 
And it does make Logo slow. But after 
you get used to it (it’s taken me about 
two years) it kind of grows on you and 
seems reasonable. This is the method 
artificial intelligence uses to process 
words instead of numbers. You search 
by knocking the first word off a list and 
trying to match it. If there is no match, 
you go back and try the butfirst first 
(second), and on and on until there’s 
nothing left (the empty list). Who is to 
say it is not the way our brains work? 


Many feel recursion approaches the way 
brains work, except doing many lists of 
words at the same time would be closer 
to reality. 

Let me give you a brief example of 
recursion in graphics: 

1b Manysquares :list.of.sizes 
If dist.of.sizes = [] [stop] 

Square first dist.of.sizes 
Manysquares butfirst dist.of.sizes 
End 

To Square :size 
Repeat 4 [Fd :size Rt 90] 

End 

Type both of these procedures in as 
you see them, taking care to observe all 
spaces and punctuation. I’d better 
define some terms. Dots (:) means the 
word following is an input and requires 
you, in this case, to supply a list of sizes 
of boxes you want. A list is more than 
one word surrounded by square brack- 
ets. |] means the empty list. To run this 
program you simply type Manysquares 
[20 30 40 50] and press return. Many- 
squares will call Square, which makes 
a square with sides of 20, and goes on 
to the next line, which “manysquares” 
the butfirst, or second number in 
list.of.sizes, and so on. When you get to 
the empty list, the program stops. 

I hope this example was simple 
enough to give you an idea of how recur- 
sion works. You can use recursion on all 
kinds of sorting problems, from alpha- 
betizing to making phone lists. Other 
classic problems are poetry generators 
and “doctor” programs (although the 
latter is painful in Atari Logo, which 
lacks property lists). The important part 
to remember is that the product is not 
the point; the process is. If you want a 
certain application to do a job for you, 
it can probably be written more easily 
and it will certainly run more quickly 
in Basic. But in using Basic you are 
following the computer’s rules of 
thought and operations. If you have 
learned these rules well, they probably 
seem second nature. But they are 
nothing like the way the human mind 
processes information. If you want to 
use your computer to simulate human 
thought, try thinking of stating a prob- 
lem using recursion and then see if it 
works in Logo. 
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by Alex Leavens 

Your footsteps echo quietly down the hallway and 
you notice, as you always do, the worn green linoleum 
beneath your feet. The linoleum of the Planetary 
Defense Command. You allow yourself a smile at that 
because you are the first person from Earth— man or 
woman— to attain the rank of Stargunner. 

You turn the corner, push open the door. The first 
of the operators notices you, makes the customary 
salute with its signaling tentacle and adds a gesture 
of greeting. “Good evening, Gunner.” 

...Stargunner. A person charged with guarding 
Yarthae, the hub of the galactic empire, the 25th Cen- 
tury Constantinople. If Yarthae were to be attacked, 
destroyed, the empire would be shattered. You are 
there to see that that does not happen. Ever. Once, 
more than 200 years ago, the outlaw Sphyzigi at- 
tempted such an attack. That attack was beaten 
back— barely... 

You nod to the controller as you make your way to 
the landing bay shuttle. “Evening, Quoxatcl. Clean 
board?” 

The signaling tentacle gives a half-shrug. “Is it ever 
anything else?” 

“No”, you reply, as you climb into the shuttle pod. 
With a whoosh! of compressed air you are shot out 
to your ship. You climb into the cockpit, Powering on 
the engines, sensors and guns, even as the hatch 


lowers itself snugly over you. The fleet of Stargunner 
ships around you do the same. You press a series of 
buttons, see the uninterrupted banks of green lights 
telling you everything is functioning as it should. 

...No one was ever sure if the Sphyzigi were 
destroyed, or merely driven off. But the Galactic coun- 
cil decided to set up the fantastic (and fantastically 
costly) defenses anyway. No one was willing to take 
any chances... Yet 200 years is a long time— more than 
long enough for the threat of destruction and devasta- 
tion to fade from memory, to become merely an oft- 
repeated tale, albeit a deadly and terrifying one... 

You guide your ship to the takeoff shaft and the 
launch sequence takes over. You feel the mass ac- 
celerator push you back into the cushions as the 
magnetic rings flash by you, faster and faster until— 
space! Stars twinkling around you, the hills of Yarthae 
below, rolling peacefully under your ship. You handle 
the controls lightly, surely, the ship responding to your 
every touch. You press the fire button once, to test the 
P-laser guns. Immediately the night is shattered by 
a brilliant green pulse of pure energy, streaking away 
from your ship with a thunderclap, fading in the 
distance. You glance at the shield indicators— all 5, 
green. Then you hear the voice of control in your ears. 

“How’s your status, Gunner?” 

“Looks good. Everything’s functioning perfectly. 
Another smooth night, gang.” Control responds with 
a chuckle. You flip a switch, and a radar display is pro- 
jected in front of you. Glowing eerily, it seems to hang 
in midair, just inside the cockpit window. A rapidly 
moving light breaks the screen s stillness. “Wups, I 
got something here. See it, control?” 

“Yeah, Gunner, we’re on it. Probably just some kid 
joysticking around. We’ll get his frequency and tell 
him to get out of here. Give him an escort, would you?” 
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“An overgrown nursemaid, that’s what I am. Yeah, 
I’ll get him. You better tell him to watch it, too. This 
high up is restricted air space. 

’‘Roger, Gunner, we copy.” Your ship streaks toward 
an interception point and you feel the hairs on the 
back of your neck start to rise. Just routine stuff, you 
think. Nothing to worry about. Control crackles in 
your ears. 

‘‘Gunner, craft is not answering any signals, repeat, 
craft is not answering any signals. This is not a drill, 
repeat, this is not a drill!” Instantly you reach over 
and flick your defense screens on, your attack com- 
puter from standby to armed. 

‘‘Control, this is Gunner 171-42,” you say, your voice 
becoming precise and formal. ‘‘Request E.T.A. and 
code reference check on incoming craft.” 

‘‘Roger, Gunner. Incoming craft has no bounce back 
frequency. Stand by.” Suddenly, the blip on your radar 
screen splits into dozens of objects, each corkscrew- 
ing crazily off. ‘‘Gunner, this is control! They’ve 
Mirved! Emergency, Plan Red D! Gunner, they’re com- 
ing into— ” 

A tremendous blast lights half the sky. Your ship 
rolls wildly, and you fight for control. ‘‘Control, this 
is Gunner 171-42! Control, what the hell happened! 
Control!” But there is no answer. Quickly you check 
the other frequencies, trying to raise your fellow 
Stargunners. Nothing. And then you realize: On the 
entire radar screen there is only one Stargunner ship. 
Yours. 

And now you know what that craft is. A Sphyzigi 
ship. They have come back. And all that lies between 
them and total conquest of Yarthae are you and your 
ship. You, and you alone, will repel the invasion force. 
You MUST. 


Playing STARGUNNER 
Introduction: 

Stargunner is your basic “Shoot everything that 
moves”, stripped down, “let’s fry a few neurons”, raw 
adrenalin video game. It has no other raison d’etre and 
the player should impart none to it, except, perhaps, 
the total impecuniousness of the author at the time 
he wrote it. To play, just plug a joystick (we recom- 
mend a sturdy one) into port 1, start the game from 
DOS (or however it comes packaged in the special edi- 
tion), and have at it. Here are some notes to help you 
get more enjoyment from the game. 

1: Movement is left, right, up and down. Button press 
fires the missle in whichever direction you’re facing 
at the time. You must release the button, and re-press 
(“Hmm. Let’s zee zose repressions, my dear ”) it to fire 
again. 

2: There are 6 levels to the game, and you can start 
at any one of them. By pressing SELECT in the at- 
tract screen you will cycle through the levels. Press 
START to start at the level currently displayed. Press 
the joystick button to start at the level that you last 
completed. 

3: You can turn the music in the attract screen off by 
pressing OPTION. 

4: There are 3 waves in every level. You must destroy 
10 attackers, 1 at a time, 20 attackers, 2 at a time, and 
30 attackers, 3 at a time. Occasionally, you’ll only have 
to destroy a few aliens in one of the waves— kind of 
a gift for overtaxed thumbs. At the end of every wave, 
you’re awarded a bonus. At the lower levels they don’t 
add up to much, but they can be quite significant at 
the higher levels. 

5: Bonus ship every 2000 points. 



By Cliff Schenkhuizen and Mark Perez 

(Editor's note: Cliff and Mark are currently attending 
school at Moreau High as sophomores. They have 
been workingtogetherforayearnowbut thisis their 
first published program. Mark is the creative artist 
and Cliff is the dedicated programmerof this truly uni- 
que “ Dynamic Duo.”) 

Lately a new trend in features of Electronic Bulletin 
Boards has been catching on. BBS’s around the coun- 
try are now including, in addition to message bases 
and free software, on-line “cartoon” sequences of 
characters as an added attraction to the board. These 
cartoons are ATARI’S control graphics characters 
animated with the resident screen editor functions 
available. 

Few programs are available for Atari users that take 
advantage of the ability to show short cartoons over 
the phone lines. The ones that are available are usual- 
ly just “bare-bones” text editors, that is, they only offer 
the entering of text and then the saving of it. Using 
these programs proved to be disappointing for us as 
well as others. They lack many helpful features and 
are somewhat awkward to use. It is this that led to the 
development of CARTOON MACHINE. 

USING THE PROGRAM 

The CARTOON MACHINE is set up in such a way 
that the user can easily access any part of the program 
with a minimum amount of keystrokes. The three con- 
sole keys (OPTION, SELECT, and START) are the on- 
ly keys needed. At the main menu the SELECT key 
moves the “cursor” (a little ball) down to each of the 
available options, lb choose that particular option, 
one needs only to press the START key. The OPTION 
key serves to terminate all functions such as viewing 
a cartoon. OPTION will also abort any keyboard input 
and return the user to the main menu. 

The first option, VIEW CARTOON, does exactly as 
it should: view the cartoon in memory. If no text has 
been entered into memory, a “NO FILE IN MEMORY” 
message will result. While viewing, however, OPTION 
will abort the function and return the user back to 
the menu. The program is set up in such a way that 
the cartoon is shown at a speed simulating a 300 baud 
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modem. Hitting SELECT while viewing acts as a tog- 
gle for 300/1200 baud viewing thus allowing the 1200 
baud user to take advantage of the program too. 

Saving and loading files have been simplified for the 
user. Both are nearly identical in operation. A direc- 
tory of drive 1 can be obtained by pressing RETURN 
at the “Filename?” prompt. An append function has 
also been added. Typing “/A” after the filename will 
append the file to an existing cartoon in memory if 
LOADing or will append the cartoon in memory to a 
disk File if SAVEing. 

The next option, ZERO MEMORY, clears the pro- 
gram’s 15000 byte buffer. 

After the ZERO MEMORY function comes the 
CREATE CARTOON option. It allows the user to start 
a cartoon from scratch. Every keystroke is recorded 
except, of course, console keys and the BREAK key. 
Since no one is a perfect typist, we have added a 
helpful feature to the editing process. The START key 
now functions as a delete key. Pressing it will erase 
the last keystroke from the cartoon so that typogra- 
phical errors will not show up on the finished copy. 
When the buffer contains only 100 free bytes, the com- 
puter will signal this by changing the color of the 
border to red. The user can either finish the cartoon 
and terminate cartoon entry with the OPTION key or 
he can save it and append the end to it with another 
file. 

The last function is APPEND CARTOON. Not to be 
confused with disk appends, this allows the user to 
continue a cartoon in memory. For example, a file can 
be loaded and the user could add more text to it with 
the APPEND option. 

Last on the menu is HELP MENU. This is not a 
function. By selecting the HELP MENU option the 
user is presented with a screen of helpful hints. In- 
cluded on this screen are quick explanations of the 
console keys, explanations of the menu options and 
also tips for the novice user. 

We hope that you find this program to be entertain- 
ing and useful. We would be glad to hear from any of 
you cartoonists out there who have designed or or- 
chestrated their own personal cartoon. Also, if you 
have found anything that could make this a better pro- 
gram, please drop us a line in care of the newsletter. 
By doing this, we can make improvements to CAR- 
TOON MACHINE. Have fun and keep us informed!!! 
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by Ihd Burger and Paul Gifford 


This program is a result of becoming 
frustrated while printing pictures from 
the Koala Pad system. The program is 
written in Atari Basic with many 
machine language subroutines. Some 
of the ML routines are my own and some 
of them came from other authors. At the 
moment I can not remember the sour- 
ces. If you see some of your code in here, 
thanks! 

The program supports several print- 
ers: Epson, Gemini, NEC, and Prowriter. 
Modifying it for a different printer is very 
simple. You add the printer name to the 
list around line 100 and then add the 
first letter to the check in the same area. 
The lines between 800 and 900 are 
where the printer is set up. Add another 
“IF” statement with the proper graphics 
control characters to format your 
Printer. 


OPERATION OF THE PROGRAM 

The program will ask you for the “pic- 
ture disk”. Koala format picture files 
must end with the “.PIC” extender and 
Micropainter format picture files must 
end with the “.MIC” extender. The 
screen will display a list of the files on 
the disk, up 38 files. You make your sel- 
ection from the list. The program will 
then load the selected picture from the 
disk. The picture will appear in color at 
first and then switch to black and white. 
The bottom of the screen will switch to 
text to prompt you. Below the text block 
is another line of graphics. This shows 
the shade of gray assigned to each of the 
four color registers. To change the gray 
shade of one of the color registers, select 
which register, 1-4. The Prompt will 
change and ask which shade you want 
(black = land white = 5). The numbers 
2,3,4 will give you progressively lighter 
shades of gray. This will allow you to set 
up the picture to look right in black and 
white. 


NOTE: If you set color 3 and 4 to the 
same shade, the text will not be visible 
but things will still work. 

When you get the picture set up the 
way you want it, a tap of the “P” key will 
send it to the printer. The other choices 
you have here are: “M”enu will take you 
back to the list of the picture files and 
“View will temporarily show you the 
entire graphics screen just in case 
something important is hidden by the 
text block. 

This is a case of “what you see is what 
you get”. The gray scales from the 
screen will be duplicated on the printer. 

Have fun! (7 bd Burger @ 71376,1263 
and Paul Gifford.) 


Software Winners 


Tisbys Tops 


by Tom Tisby 

The Atari Home Computer has been 
around for a long time. Because of this 
many software programs have been 
written. And throughout the thousands 
that are produced, just a few really stand 
out. I am not talking about the great Pac- 
man or Missile Command we have 
played so much that our cartridges have 
worn out. What I am talking about are 
the games that made Atari famous and 
unique; the programs that take our 
computers to the limit. So without fur- 
ther ado, may I Present for your inspec- 
tion THE GAMES AND PROGRAMS 
in their respected order from a group of 
credible computer enthusiasts like you 
and me. 



.ON WITH THE 


AND NOW. 
AWARDS. . . 

TOP 11 GAMES 


1) Starraiders 

2) Alley Cat 

3) Seven Cities of Gold 

4) Whistlers Brother 

5) Ghostbusters 

6) Rescue on Fractalus 

7) Ball Blazer 

8) Archon 

9) Agent U.S.A. 

10) Microleague Baseball 

11) Bruce Lee 

TOP 11 ADVENTURES 

1) Ali Baba & 40 Thieves 

2) Return of Heracles 

3) Zork, I, II, III 

4) 7 Cities of Gold 

5) Suspended 

6) The Count 

7) Mystery Fun House 

8) Ultima III 

9) Planetfall 

10) Mask of the Sun 

11) TYansyl vania 

TOP WORD PROCESSORS 

1) Atari Writer 

2) Letter Perfect 


3) Paper Clip 

TOP EDUCATIONAL 

1) Wiz Type 

2) Mickey & the Great Outdoors" 

3) Agent U.S.A. 

MOST INNOVATIVE GAMES 

1) Ball Blazer 

2) Rescue on Fractalus 

3) Microleague Baseball 

4) Starraiders 

5) Spy Vs. Spy 

6) Pinball Construction Set 

7) AE 

8) Bruce Lee 

9) Way-Out 

10) Flight Simulator II 

11) M.U.L.E. 

TOP 11 UTILITIES 

1) Printshop 

2) Printwiz 

3) Disk Wizard II 

4) Lister Plus 

5) Picture Plus 

6) Colorprint 

7) Diskkeeper 

8) Humpty Dump 

9) S.A.M. 

10) Megafont 

11) Syn-File 

TOP BUSINESS 

1) Syn-Calc 

2) B-Graph 

3) Visi-Calc 

TOP BASIC COMPILERS 

1) ABC 

2) Datasoft 

3) MMG 

And so there you have it! The best of 
the best. If you do not have these pro- 
grams, I suggest that you go and run 
(not walk!) to your nearest computer 
store and buy these great programs. You 
are missing a lot if you do not! And for 
all those who do own some or all, then 
all I can say to you is congratulations! ! ! 
You have made some excellent pur- 
chases. Now aren’t you glad you did not 
buy that Pacman clone instead??? 


Sarge's 

Selections 


by Sgt. Slaughter 

Many times people will ask me, “Sgt. 
Slaughter, what is your favorite game?’’ 
I sometimes tell them MULE or the Pin- 
ball Construction Set or even Bruce Lee. 
Occasionally they will say “Aw, Sarge, 
everybody likes those. You got any 
favorites that no one knows about?” 

Indeed I do. Often, good games get 
good reviews and do well in sales. Other 
times, bad games get good reviews and 
do well in sales (but the buyers often 
regret it). It is rare that there can be a 
game or two out there that no one buys, 
no one has ever heard of or no one wants, 
but is still a very good game. This is the 
purpose of this review. I have a few 
games in my library that I play a lot even 
though they may not be a Bruce Lee or 
a MULE. Here is a list, with comments, 
on what I think are some of the greatest 
closet classics on the Atari. 

RAINBOW WALKER: I happen to 
think this game is probably the most 
fun and involving Q*Bert clone on the 
Atari. The idea is to color grey and black 
holes in the rainbow without getting 
kicked off. It is a tough job but 
somebody has got to do it! The sound, 
graphics and action are second to none. 
There is a bonus round that is probably 
the best simulation of a bucking bron- 
co ride I have ever seen! A definite plus 
for a game library. 

COHEN’S TOWERS: This release is 
a sort-of Donkey Kong clone with a twist. 
You are a lowly courier who has to shuf- 
fle letters into various mail drops in a 
high-rise building. 1 play this game a lot 
because it is challenging and the graph- 
ics, animation and sound are top notch. 
In fact, with all the times I have Played 
this game, I have only completed the 
first building once which just goes to 
show you how much of a challenge this 
game has to offer. 

WIZTYPE: Of all the typing educa- 
tional programs that are on the Atari, 
this virtually unknown program is 
great! It offers you many different ways 
to hone typing skills, from games to 
actual paragraph typing, plus on-going 
charts of your progress and incredible 
graphics representing the many charac- 
ters of the Wizard of Id. Not even the 
Atari Star Award winner, Typo Attack, 
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does as good a job of teaching typing 
skills as this program does. It is fantastic 
for anybody of any age because it can 
be friendly enough for a child or serious 
enough for an adult. 

BOULDERDASH: Ok, Ok, I know 
this did pretty well but I feel that even 
if it was a best seller, it would not have 
done this excellent game justice. With 
all the terrible Dig Dug clones (Atari’s 
Dig Dug being one of them) this one 
stands high and mighty above the rest. 
Tb win at this game you need something 
more than just fast reflexes (which 
seems to be a staple in most games to- 
day). You need to think ahead and plan. 
This game requires intelligence to play 
and I still play it many times when I find 
myself with some spare time. 

THE RETURN OF HERACLES: As 

far as action adventures go this one is 
the tops! I have solved it 5 times already 
and I am going for a 6th! The mixture 
of players plus a well supported back- 
ing of mythic descriptions make this an 
epic blockbuster. Unlike Ultima 3, the 
characters are much more developed, 
much more interesting and less bind- 
ing. For instance, with the right amount 
of gold you can help any character 
become a great hero, unlike Ultima 3, 
whose glitch makes it almost imposs- 
ible to get to the stage where you can 
help your characters gain attributes. If 
you have never played Heracles or Ali 
Baba, I strongly suggest that you check 
it out and see what you are missing. 

MIG ALLEY ACE: This is a fantastic 
flight combat simulation with multiple 
players and combat mode. When I found 
out that all of this was written in com- 
piled BASIC, I could not believe my eyes! 
The speed and action can not be beat, 
even by the over-burdened and over- 
detailed Flight Simulator 2 by Sublogic. 
This is not to say that Flight Simulator 
2 is a terrible program, but just that with 
the given amount of memory and play 
action Mig Alley Ace is a whole lot more 
fun. This is in comparison to the War 
game on Flight Simulator 2, not the ac- 
tual simulation. 

AMS2 (ADVANCED MUSIC 
SYSTEM 2): Few people realize what a 
great thing AMS2 is for Atari users and 
many shrug it off. I personally can not 
write music so the programming fea- 
tures are lost on me. What I do know is 
that not only are there hundreds upon 
hundreds of songs written for it (AMS2 
has more user support for it than any 
other music program for any computer), 
all the songs are public domain and it 
is very inexpensive with the price of 
around $20 as opposed to $99 for lesser 
programs on other systems. If you know 
how to write music and have a good ear, 


I would really strongly suggest that you 
take a look (and listen) to AMS2. You 
might very well be surprised. 

SPELUNKER: Even when re-releas- 
ed from Broderbund, I do not think this 
game has ever gotten the respect it 
deserves. TYuly an awesome game in 
both graphics and planning, I believe 
this is the game that SHOULD have 
replaced miner 2049er. It is a lot more 
related to mining than the latter is. This 
game can keep you going for a long time 
and the novelty still has not worn off for 
me. 

Oh, yea, before I go I would like a cou- 
ple of shots at some definitely over-rated 
games too. . . . 

LODE RUNNER: Innovative but 
BORING! 

POLE POSITION: If an actual car 
drove like that, this game would be a 
great argument to take the bus! 

DEFENDER: Sure, it was great for 
about V 2 an hour. But after you are stuck 
on the 99th level for about 15 minutes, 
you sort of get a little bored . . . 

CHOPLIFTER: Good for the times 
but got quickly outmoded in other 
games and in its own challenge. 

ULTIMA 3: Yea, it is an epic. But all 
that work for what??? 

THE QUEST: Well, remember how I 
did not like it the first time I reviewed 
it? Well, right now, I like it even less!!! 
I still have not booted it up after I played 
it the first time. I did see a positive review 
for it somewhere, so this is in response 
to that unwary reviewer (wherever you 
are!) 

Q*BERT: This is a brainless, artless 
copy of the arcade version without any 
of the inherent charms or action of the 
first one. You would think that they 
would fix the fact that you have to go 
diagonal to move . . . nope. This one is 
a real turkey. But because of the arcade 
popularity, it stayed around .... 

Anyway, I would just like to leave you 
off with a little suggestion on how to pick 
the winners and losers of the gaming 
world. Dry to see how the game/software 
is. If you can not see it and still have 
doubts, don’t buy it. Another good idea 
is not to be the “first kid on the block” 
with something new. Very often the 
game you get for $35 today will be in the 
$4.95 bargain box tomorrow. Just be 
aware and be smart. 

Until next time. 

Goodbye and Good Gaming! 

At Ease, 

Sgt. Slaughter 



Text Screen Dump 


by Tbm Reichard - JACG 

Several micros have a built-in screen 
dump that allow a screen full of data to 
be dumped to the printer with a single 
keypress. The following is a simple 
BASIC program that essentially accom- 
plishes the same thing. 

As a stand alone program one simply 
RUNs it then types to the screen using 
all of Atari’s great screen editing 
features. When you want a screen 
dumped to your printer simply press 
START. To continue on to another 
screen just press SHIFT and CLEAR (or 
CONTROL and CLEAR) then resume. 

You need to be careful in using con- 
trol characters as some of them affect 
printer actions. However, if you learn 
their functions for your printer, adding 
them to your text can give you some ad- 
ditional interesting features. For exam- 
ple a control N at the beginning of any 
line will cause that line (but not the next 
Qne) to be written in expanded type for 
many printers. 


SPECIAL NOTE: In lines 50, 130 
AND 190 the “!!’’ axe supposed to be 
ESC DOWN followed by ESC UP arrow 
which cannot be printed using this word 
processor. Please change them in your 
program! 


PROGRAM NOTES 

Line 40 - This routine is not well 
known. It allows line by line input from 
the screen. (See also the loop from line 
130 to line 180) 

LINE 1 10 - Disallows entry of data to 
Line 23 of the screen. It avoids problems 
associated with scrolling. Printouts are 
thus limited to 23 lines (0-22). 

With some additional programming 
one might, with relative ease, add a 
screen save routine giving you a simple 
word processor which you could couple 
with various BASIC programs as a sub- 
routine. 
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SUPER SCREEN DUMP 


REM 

REM 

REM 

REM 

REM 

REM 


I SAN LEANDRO COMPUTER CLUB I 
SPECIAL EDITION JOURNAL I 

1P.O. Box 1525 . San Leandr-o . C A I 

94580-0152 I 

■ I 


IQ 

REM 

THIS PROGRAM 

HI 

LL 

D 

20 

REM 

PRINT PICTURES 

IN 

K 

3 8 

REM 

MICROPAINTER 

FO 

RMA 

T 

40 

REM 





50 

REM 

THIS PROGRAM 

MX 

LL 

N 


50 

70 

SO 


MR ENCH 


>Y AND 
AND 


OT WORK 
INSTALLED 


Pfll$ £772) 
03 


REM WITH MONKEY 
REM 

DIM MAINS £330) , MODES £61) f NAMES £15) , 
p PR2S £772) |PR3$ £772) ; FILE$£99 
T E MP S (15) # D U MP 1SC17S) ,OU MP 2 S £178) 

05 DIM PRT$£1) ; GR$£iO) , ML D S C II 73 
SO GRAPHICS O : POKE 752,l:POKE 201,5 

5ETCOLOR I , 2 , 10 : SETCOLOR 2 / 2 r 2:5ETC 
2 , 2 

N IN THE PUBLIC DOMAIN" 

. . A ■ 



lr+4 J 

103 7 . . M + + WHICH PRINTER^"!? . . Up 

SON' 1 : ? . . *■ fflEMINI" ! ? . . " mEC" : 7 . . 

liJRO WRITER" 

IIO 7 . , "4-ENTER YOUR CHOICE": : INPUT PR 

TS 


PRTS="G" OR PRT*="N 
? "ttttttttttUIKII 


111 IF PRTS="E" OR 
" OR PRTS = "P" THEN 
CXZI3" : GOTO 120 

1 12 GOTO SO 
IIS REM 

120 REM PUT DISK I/O SUBROUTINES IN 
I30 REM PAGE FOUR CASSETTE BUFFER. 
REM 


140 

ISO 


DATA 162^16,169; 


, 157. 72, 


57 / 73 ,3 t 32, 86,228,192 *0, 4 8, 


, 230 , 31. 


208,3/238,32,4,96,104, 104,96 
160 FOR 0=1024 TO 1054: READ BlPOKE 
I NEXT A 
130 REM 


REM DUMPS IS A MACHINE LANGUAGE 
REM ROUTINE THAT DOES THE 
REM SCREEN DUMP 

REM IT ALSO USES THE FIRST 20 
REM BYTES OF PAGE I (0100.01103 
REM DUMP IS IS FOR EPSON TYPES 
REM DUMP2$ IS FOR NEC. PROWRITER 
REM 

DUMP1$ (1) -"hh^lh^h* h l-h»* hh« II- 

■vti:«pK4.n3^n4rrT7H im-iHh i i-rraj 


200 
210 
2 20 
2 21 
222 

223 

224 

225 

240 

n 

hrrnomTorrrTTi kti 

241 o UMP IS £81) =" t-7T7S K hi P WfTBf?!) J W 

prrrrrTTTD-i rarraru jrr^a j 
n:iniiLW rasTKTfi j jriiMni'ew ■ 

242 DUMP1$ £161) z'Tfltm I JN.1.4 

24 3 DUMP 2 S (i) = " t-» h!Tlhrf^h« l- 1-hH II- 

fi hrri>~m ^ 1 i— *- i -i * i l-nrcs- 1 
hj i-rmsmr srrrm i— *-■ ■ 

24 4 DLJMP2 5 £61) = " i ^TITB M*i ¥■ H'lfTElil) J W 

kC3iv€H nziFamj jhtoj -* kkia^ i-^nr 

rarrrrr™ mascnj jrwiiM-nv^ow 

245 D 11 MP 2 S ti6D = ■ ‘run cm 1 j 14 * • 

245 REM 

247 REM ML DS HOLDS THE M/ L ROUTINE TO 

LOAD H-PAINT FORMAT FILES 

240 REM COURTESY OF ANALOG MAG. 

249 REM 

250 MLD$ = "nhOo ^i j ^raai li v. 1 m » ir¥iora-nNr 

1 m ’ 4 -l. i ynwivf^u. rii/Ti— rarcH n Aig »-" 

2 52 ml ds c 6i3 vrTWi9pf=ran-oflr*X3B-i 

n<-m j FanrsD-* wyoe- 1 urac j rmfivzrr}*" 

255 REM 

260 REM MODES IS A MACHINE LANGUAGE 

270 REM ROUTINE TO CHANGE GRAPHICS 8 

200 REM TO GRAPHICS MODE E 

290 REM 

300 MOOE5 = , 'hB0 


ctbi rrv»-n i-ei rrii¥< 


7*1 


AnTUtFii rmD^iorm^ jjpi_miDi‘JiNrrwin4 M 


310 REM 

320 REM MAINS IS A MACHINE LANGUAGE 
330 REM ROUTINE TO DECOMPRESS . PIC 
340 REM FILES AND DISPLAY THEM 
370 REM 

3 80 MAINS Cl 3 = " HSH-afTSJlB- 1 HTT1D- 1 Fl’VflE-' F1 ¥h->-I m 

-inn 

ra ID 4Na^ in 7-4 mC* m 4N^T1 ian 7 

370 MAINS £181) ="4 m ! -I ITZ 7-4 wm -I 4-CXS1 7 . T 1L ■ 

X. ■TJ.B.’F/Y.KHxJ 74 !fWTf3KB-M IT I -I C^kB -I fT -I 0F 
MDfKTOTi) cwwti) ►hha 7-i rra 7-i mai^ 7H 

IT*" 

400 MAIN$ £201) ="7fIK!Uim7rVI3ni9li] I 

\.XA>smi-M jm.n n r^c-^ip e t Tm7e hCM«i »ran/n 
w=4n j->— *- n i-enri. l r >i7. rO^ncei-Ltj 

Fl7" 

410 MAINS C30I3 = " r*3 e ET»?H-R |J41 »-emyi7eFm 
J-C^7" 

420 MAINS £111, 111) = C H R S C343 

4 30 MAINS £157, 1573 = CHRS C343 


440 

REM 



450 

REM READ DISK DIR 

ECTOR Y 


460 

REM AND STORE .PI 

C 


465 

REM AND . MIC FILE 

NAMES 


470 

REM 



480 

? ."++4 INSERT T 

HE PICTUR 

E DISK . " 

; 7 m 

"4 THEN PRESS 


: INPUT 

NAME 

S 



4 70 

FILE=1 : OPEN ttl , 6 . 

O , "D PI 

C" 

500 

FILE$=" ": FILES C7O03 =" ":F 

ILES C 2 3 = 

FILE 

S 



510 

INPUT ttl / NAMES 



520 

IF NAMES (2 / 23 <>" 

" THEN 560 

530 

N A ME $£1,2)= M D:":N 

AMES (11) = 

" . PIC" 

540 

FILES C1S*FILE-14) 

= NAMES :FILE=FILE+ 

1 

550 

IF FILE <37 THEN 5 

io 


560 

REM 



565 

CLOSE ttl 



570 

OPEN ttl,6,0,"D:«. 

MIC" 


572 

INPUT ttl,NAMES;ZF 

NAMES £2 . 

23 <> " " 

THEN 

576 



574 

NAMES Cl / 23="Dl"lN 

AMES £11) = 

" . MIC" : F 

ILES 

(1S*FILE-14) = NAME 

SjFILE=FILE+l : IF 

FILE 

<37 THEN 572 



576 

riLE=FILE-l : CLOSE 

ttl 


580 

REM 



570 

REM NOW GET WHICH 

PICTURE 


600 

REM TO PRINT 



610 

REM 



620 

GRAPHICS O : ? "« 


m^BTT 

: 7 : FL = 0 



630 

FOR FF=1 TO FILE 



640 

N AME S = FILES CFTW15 

-143 


650 

POSITION C CFF/2 — I 

NT CFF/2) 3 

<0.23 4*20 

■ FF/2 + 1 : IF F F < 1 O THEN 

7 


660 

7 FF NAMES 



670 

NEXT FF 



680 

SK" 

7 "++ENTER ■ O • TO 

CATALOG 

A NEW D I 

670 

TRAP 620:7 "WHICH 

PICTURE 

DO YOU M 

ANT 

TO PRINT"; ! INPUT 

PIC 



700 IF PIC=0 THEN 470 
710 IF PIC) FILE THEN 620 
720 TEMP $ = FILE$ (PIC»15-14) 

730 NAMES="":FOR A = 1 TO L E N C T E MP S 3 
740 IF TEMPS CA , A3 <> " " THEN NAMESCLENC 

NAMES) +13 =TEMPS (A / A3 
750 NEXT A 

755 IF NAMES CLEN CNAMES3 "2, LEN C N AME S 3 3 = 

"MIC" THEN 1000 

760 OPEN HI , 4 *0, NAMES 

770 GRAPHICS 8+16:A=USRCADR CMODES3 3 
780 A = USRCADR CHAINS) 3 
770 CLOSE ttl 
800 REM 

810 REM £1 =*«!!&» J:»4:hA4:aB4[il:WH:7^ 

820 REM 
830 REM 
840 GOSUB 1215 
850 TRAP 1560 

860 CLOSE ttl : OPEN HI, 8, 0, "P ! " 

865 IF PRTS = "E" THEN D UMP = ADR CD UMP 1 S 3 : 

7 ttl : "tGtSi" : GRS = "tL-|J " 

866 IF PRTS = "G" THEN D U MP = A D R C D U MP 1 S 3 : 

? ttl : "tGt37" : GRS= M %L4J " 

867 IF PRTS = "N" THEN DUMP = AD R C DUMP 2 S 3 ! 

? ttl :"tT16t CtQ": GRS="^50772" 

868 IF PRTS="P" THEN D U MP = A D R C D U MP 2 S 3 : 

? ttl : "tTietCtQ" : GRS="*S077Z" 

870 PR1$="7":PR1S£772)="7”:PR1S CZ3 = PR1 

S : PR2$ = PRlS : PR3S = PRlS 

800 PR1 = ADR CPRlS) ! PR2 = ADR CP R2$) 
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890 REM 

900 REM I hi I ■■'■'I J 

9X0 REM 

920 SCR — PEEK (88) +PEEK C89)*2S6 : POKE 264 
, 2 5 5 

930 FOR X = 0 TO 39: IF PEEK C764) <>25S TH 

EN POP : POKE 764^ 255 : GOTO 950 

935 PICT = 191K40 + 5CR + K : 5TR = U5R (DUMP ^ PIC 
T,PR1,PR2) 

940 IF PRl$OPR3S THEN 7 tti; GRS J PRlS) 

942 ? «1 

946 IF PR2$ <> PR3S THEN ? HI ;GR$jPR2S^ 

942 ? »X 

948 NEXT X 

950 7 «i } "j 

960 TRAP 32262 

920 CLOSE »1 : GRAPHICS O : GOTO 620 
1000 REM 

1005 REM LOAD M-PAINT TYPE FILE 

1010 REM 

1015 CLOSE ttllOPEN « I r 4 , O , N A ME 5 : G R A P H I 
CS 8+16 

1017 fl=U5R C ADR £MLD$) > 

1018 IF A <> 1 THEN 7 '^"iGOTO 480 

I020 GET »1,C1:GET ttl,C2:GET ttl,C3;GET 

ttl | C 4 : CLOSE m : POKE 712,Cl;POKE 700 ; C 
2 : POKE 709 , C3 : POKE 210,C4 
1025 GOTO 800 

1190 REM 

1200 REM THIS ROUTINE CHANGES 

1210 REM THE GRAY SCALES 

1211 REM 

1215 BKG=5:CR2=1:CR1=3:CR0=2 

1220 GRAPHICS 8+32lA=USRCADR (MODES) 3 1 P 

OKE 252 , X 

1221 POKE 212,3, 2« CBKG-1) : POKE 210,3,2 

*£CR2-1) JPOKE 70 9 , 3 , 7-N CC R1 — 13 : POKE 708 
, 3 , 7»(CRO-i) 

1228 ? "K":FL=1 

1230 DL=PEEK (560) +PEEK (561) *256+173 
1248 SCR— PEEK (80) +PEEK C89)«256~500 
1245 FOR C = 0 TO 3 ! FOR X = 5**C TO 5«C + 4lP 
OKE I+3CR*40.C*05:NEKT X : NEXT C 
1250 POKE DL+4, 65 : POKE DL+3, 10 

1255 POKE 0L + 5 | PCEK(DL + 1) 1 POKE 0L + 6, PE 

EK CD L + 2 3 

1260 POKE DL , 78 3 POKE DL + 1 . 5CR-INT (SCR/ 
2 56 3 *42 B 6 I POKE DL + 2 , I NT (SCR/256) 

1280 CLOSE «*3 3 OPEN »3,4 j 0 , "K I " : TRAP 12 

80 

1310 POKE DL 7 78 

1310 ? "0 PRESS fiJRINT OR ITE NU OR CH 

IEM.":T M 4 CHOOSE COLOR TO CHANGE. 

(1-4) ■■ 

1328 T » 1 2 3 

4 M : 

13 30 CLOSE US x OPEN tt3,4 , O , * a K 3 " a : TRAP 13 

30 

1340 GET «*3 , KEY 

1344 IF KEY = 80 OR KEY = 112 THEN 7 ,a «4- P 

HESS ANY KEY TO STOP PRINTING 11 : GOTO 14 
50 

1348 IF KEY=77 OR KEY=109 THEN 628 

1346 IF KEY=86 OR KEY=118 THEN GOSUB I 

710 I GOTO 1220 

1350 ? "0 BLACK = 1 2 3 4 5 = HHITE' 1 

1360 7 " CHOOSE NEW SHADE. Ci-53 ,a 

13 70 7 "PRESENT SHADE FOR COLOR 44“ ' : KEY 

— 48 i "• IS ■■ I 
1375 POKE DL, 65 

1380 IF KEY = 49 THEN 7 8 K G : GET tt3^KEY:B 

KG — KEY — 48 : POKE 712 , 3 , 7* (KEY-49) JGOTO I 

310 

I390 IF KEY = 50 THEN 7 CRO 3 GET tt3,KEY:C 

RO-KEY-48 : POKE 708^3 . 7*(KEY~493 ; GOTO I 

310 

1400 IF KEY=51 THEN 7 CRUGET «3,KEY:C 

Ri=KEY-48:POKE 709,3. 7N (KEY-49) : GOTO X 

3X0 

X 4 X O IF KEY = 52 THEN 7 C R 2 3 GET »3 . KEY 3 C 

R2 = KE Y-48 : POKE 7 X 0 / 3 . 7** C K E Y - 4 9 ) 3 GOTO X 

3X0 

X440 SOUND l f 100,10,10: FOR I=X TO 20:N 
EXT I 3 SOUND X,e / 0,03GOTO X3XO 
X 4 5 O RESTORE 1 5 O 0 + 8 K G : F O R 1 = 260 TO 263 

3READ PATlPOKE I . PAT 3 NEXT I 

1460 RESTORE 1500+CRO:FOR 1=264 TO 267 

3 READ PAT 3 POKE I ; PAT:NEKT I 

X470 RESTORE 1S00+CR1:FOR 1=268 TO 27X 

iREAD PAT 3 POKE I,PAT:NEXT I 

X480 RESTORE 1S0O+CR2:FOR 1=272 TO 275 

3READ PAT 3 POKE I,PAT:NEXT I 
1490 RETURN 


1500 

REM D 

ATA FOR G 

RAY 

X 5 O X 

DATA 

15 f 15 f 15, 

15 

1502 

DATA 

10,5, 10, S 


1503 

DATA 

10,0,5,0 


1504 

DATA 

2 f O , 8 T O 

O , O , 0 f O 


1505 

DATA 



X550 REM 

X5S5 REM 

1560 REM PRINTER ERROR ROUTINE 

1570 7 ““SOMETHING IS WRONG WITH THE PR 

INTER I ““ 

1580 SOUND 1^100,10,12 

1590 FOR A = X TO 20:NEXT A 

1600 SOUND 1,0, 0,0 

16X0 FOR A=X TO iOOiNEXT A 

1628 GOTO 850 

1650 REM 

1655 REM 

X 7 X O GRAPHICS 8 + 16 + 32 : A = U5R (ADR (MODES) 

3 

1720 POKE 712 ; 3 ? 7*(BKG-1) iPOKE 710,3,7 

*(CR2-l):POKE 709^3 . 7*(CR1 — 1) : POKE 706 
y 3 . 7++ (CR0-1) 

1730 FOR A = X TO 400:NEXT AsRETURN 

trpin sound 


X REM I 

2 REM I SAN LEANDRO COMPUTER CLUB I 

3 REM I SPECIAL EDITION JOURNAL I 

4 REM 1P.O. Box 1525. San Leandro . CA I 

5 REM I 94588-0X52 | 

6 REM • I 

XO REM TRAIN SOUND 

20 REM BY LEE MINARD 

30 REM 5TARFLEET, DENVER 

40 GRAPHICS 2 

50 POKE 752, X 

60 8 = 10 3 H = X 

70 REM STEAM RELEASE 

80 SOUND 8,1,8, 4 

90 FOR DL A Y = 1 TO 50: NEXT DLOY 


xeo 

FOR STEAM=X2 


TO 6 STEP -8 . 

xxo 

SOUND 0,1,8, 

S 

TEAM 

120 

FOR D L A Y = X T 

O 

50 : NEXT DLAY 

130 

NEXT STEAM 



140 

REM CHUGS 



150 

FOR G=15 TO 

X 

STEP -O . 25 

X 6 O 

FOR A = G TO 2 


STEP -0.5 

170 

SOUND 0,8,8, 

A 


180 

SOUND 2 , B+X , 

8 


190 

NEXT A 



200 

REM SPEED UP 


CHUGS 


2X0 FOR DLAY = B**2 TO ISO ! NEXT DLAY 
220 FOR DLAY=1 TO 25 ! NEXT DLAY 
230 8=8+2 

240 REM GRAPHICS FOR "TRAIN" N-N+fr 


250 

H = 

H + X 




260 

IF 

H = 4 

THEN 

H = 1 


270 

IF 

H = 2 

THEN 

GOSUB 

490 

280 

IF 

H = 3 

THEN 

GOSUB 

5X0 

290 

IF 

H = X 

THEN 

GOSUB 

530 

300 

IF 

8 = 90 

THE 

N 340 



3X0 IF 8=90 THEN 340 

320 NEXT G 

330 REM WHISTLE «HH* 

340 FOR X=1 TO 100 

350 IF X=X2 OR K=14 OR X=05 OR X=69 TH 

EN SOUND X , 75 , 10, S I SOUND 3 , S 0 , 1 O , 4 3 S O U 
ND 2 ,52,49 , 4 


360 

IF X=X3 OR K=16 OR X= 

68 OR X = 7 O TH 

EN 

SOUND 1, 75, IO, X : SOUND 

3^ 50 ,18, X : SOU 

ND 

2 , 52, 10, X 


370 

IF X=19 OR X=73 THEN 

SOUND 1 , O , 0 f 0 

: SOUND 3,0 ,0,0 ; SOUND 2,0, 

0,0 

380 

FOR A=9 TO X STEP -0 . 

4 

390 

SOUND 0,66,8,0 


400 

NEXT A 


4X0 

7 "CHOO a “ : 


420 

NEXT X 


430 

FOR A = 9 TO X STEP -0. 

4 

440 

SOUND 0,86,8 ( A 


4 50 

NEXT A 


4 6 0 

FOR D L A Y = X TO 2 : NEXT 

DLAY 

47 0 

7 "CHOO ““ : 


4 80 

GOTO 340 


4 9 0 

7 06 ; ““TRAIN** : 


5 0 0 

R E TURN 


5X0 

7 »6 j - a hi:Ii*4:i“ a : 


5 20 

RETURN 


530 

7 »6; : 


5 40 

RETURN 



49 


MASTER PENCIL. 


770 PRINT HT:? 
ti-ai " : 


ENTER LETTER MXDTH 



380 REM DEL 

380 X = X- C WD*8 J -I 

400 FOR RM=© TO 7 : COLOR OF 

4X0 FOR CM=G TO 7 

420 G05UB 330 : NEXT CM: NEXT RM: RETURN 

430 REM OTHER 

440 FOR RM=0 TO 7 

450 NM=PEEK£57344+PLfRH) : C M= 0 

480 COLOR OF:IF MM>127 THEN NM=NM-128 : 

COLOR AN 

470 G05UB 330 : COLOR OF:C M— JL 

480 IF NM>63 THEN NM=NM-64 : COLOR AN 

480 GOSUB 330 : COLOR OF:CM=2 

500 IF NM>3I THEN NM=NM”32 : COLOR AN 

510 GOSUB 330 : COLOR OF:CM=3 

520 IF MM> 15 THEN HM=NM— 16 : COLOR AN 

S39 GOSUB 330 : COLOR OF:CM=4 

54 0 IF NM>7 THEN N M- N M- 8 : COLOR AN 

550 GOSUB 330: COLOR OF:CM=5 

580 IF NM>3 THEN MM=NM~4 : COLOR AN 

570 GOSUB 330 : COLOR OF:CM=6 

580 IF N M> 1 THEN NM=NM-2 I COLOR AN 

580 GOSUB 330 : COLOR OF:CM=7 

800 IF NM>0 THEN MM=MM~1 : COLOR AN 

610 GOSUB 330 : NEXT RM 

620 X = K+ CWD*8) +1 

630 RETURN 

640 REM CHECK 

650 5 = 0 : IF MD-NB + X>3A8 THEN S = X 

660 IF HT#8+Y>159 THEN 3=1 
670 RETURN 
680 REM DCHEK 

680 5=0: IF K~WD*8 <0 THEN 5=1 

700 IF Y+HTH8>159 THEN S = 1 
710 RETURN 

720 REM ALPHA (LETTERS. ETC . ) 


730 POKE 7S2 / l:CLOSE JtUOPEH OX^ 4, "K 


740 PRINT + : 

750 ? "ENTER LETTER HEIGHT Cl-8) " ! 

760 GET ttl / HT:HT=HT-48:IF HT<1 OR HT>8 
THEN 760 


780 GET »1 ; HD:WD = WD-48:IF MI> < JL OR MD > 8 

THEN 780 
730 PRINT MD : 2 

800 GRAPHICS 8+32 : POKE 7IG,0lPOKE 752. 

I ' 

810 2 "IMPOSITION CURSOR TO PLACE ON SC 

REEN" 

820 ? "WHERE UPPER-LEFT CORNER OF FIRS 

T" 

830 2 "CHARACTER IS TO GO. A»!D PRESS T 

HE" 

840 2 "FIRE BUTTON. . 

850 GOSUB JL60: GOSUB 10O : S = STRIC(fll 
860 IF 5=1 THEN 850 

870 POKE 764,255 

880 S=0 : GOSUB 640 

830 IF S = JL THEN ? :? "SORRY. NOT EMOUG 

H ROOM.":? "PRESS ANY KEY TO REPOSITIO 
N : " : : GET Ol f S:GOTO 720 

300 LOCATE X / Y / S:COLOR X-S.'RLOT K « 

3JL0 PRINT "IMPRESS RETURN TO REPOS 

? "PRESS ESC TO RETURN TO MENU" : ? "P 

RESS THE LETTER OF YOUR CHOICE: 

320 GET »1 ,K:AN=1:OF=0 
830 COLOR S : PLOT X/Y 

340 IF K = JL 5 5 THEN 720 

350 IF K = 2 7 THEN RETURN 

360 IF K) 127 THEN K = K - 1 2 8 : AN =0 1 O F = 1 

370 IF K < 3 2 THEN PL=CK + 64J*8 

380 IF K > 3 1 AND K<36 THEN R L — IK~32)*0 

330 IF K > 3 5 THEN PL = K«8 

1O0O IF K=126 THEN GOSUB 680:IF 5=0 TH 

EN GOSUB 380 ; GOTO 1020 

1010 GOSUB 430 

I02O GOTO 880 

1030 REM MIRROR1 

1040 IF K<161 THEN A = 3 I 3 - X 

1050 IF X > 1 6 0 THEN A = 1 6 0 — C X - 1 6 O ) 

1060 IF Y>80 THEN B=80-(Y-80J 

1070 IF Y<81 THEN B=1S3-Y 

1080 COLOR C 

1030 PLOT Y : PLOT H,B:PLOT A^B : PLOT A 

1100 RETURN 

XXXO GRAPHICS 8 + 3Z:POKE 710 J 0:POKE 752 

/ A 

1120 2 "IMMOOE OR DUPLICATE (M/D3 ?■' : 

1130 CLOSE : OPEN « JL , 4 , 0 f " K : " 

1140 GET *»1 ^ M : IF M<>68 AND M<>77 THEN 

1140 

1150 MO 0 = 0 : IF M= 7 7 THEN MOO = I 

1155 IF MOO THEN ? "IMMOOE:" 

1158 IF MOOOl THEN 2 "BDUPLICATE : " 
1160 2 "POSITION CURSOR TO UPPER LEFT 

CORNER" 

1170 2 "OF AREA TO BE TRANSFERRED. THE 

N PRESS" 

1180 2 "THE FIRE BUTTON . " : 

1190 GOSUB 160:GOSUB 10O:IF 5TRIGC0) =1 

THEN 1190 
1195 OX=X : O Y= V 

1200 2 "IMO.K. . POSITION THE CURSOR TO 

THE" 

12X0 2 "LOWER RIGHT CORNER OF THE AREA 

TO BE" 

X220 2 "TRANSFERRED AND PRESS THE FIRE 

BUTTON" 

1230 GOSUB X60 : GOSUB A00:XF K<OX THEN 

X = OX 

X 2 4 0 IF Y < O Y THEN Y = OY 

1250 IF STRIG CO) =1 THEN 1230 

X 2 5 5 N X = X : N Y = Y 

X260 2 "fMNOM. POSITION THE CURSOR IN T 

HE UPPER" 

X270 2 "LEFT CORNER OF THE AREA MH ERE 

THIS" 

1280 2 "IS TO BE TRANSFERRED TO . AND P 

RESS" 

1230 2 "THE FIRE BUTTON": 

1300 GOSUB 160 : GOSUB 100:IF 5TRIGC0)=i 

THEN 1300 

X3XO 2 "NTR ANSFERRING . . . " 

1320 XX=NX-OX : Y1=N Y-O Y 

1330 IF X+K1>319 THEN XX=313 -X 

X340 IF Y+Y1>159 THEN Y1=XS3-Y 

X3SO FOR T = X TO Y1 

1360 FOR R=1 TO XX 

1370 LOCATE OH+R~X^ OY+T— 1, COL 
1380 COLOR COL : PLOT X-X + Ry.Y-1 + T 
1330 IF MO *J THEN COLOR 0:PLOT OX+R-X^O 

Y + T-X 


50 


H" 


14 O 6 

M E K T 

R : NEXT T 


X 4 X O 

I F MO 

0=0 THEN 

-7 

‘ * : : G E T » X , 

A N : I F A N = 

8 9 

X 4 2 0 

R E TUR 

N 


158 O 

REM D 

IR 


1590 

CLOSE 

« 3 : O P E N 

»3 

X600 

7 ■ ■ 6 


D 

X 6 1 O 

TRAP 

X 6 4 O 


X 620 

INPUT 

tt 3 : Y $ : 7 

Y$ 

X630 

GOTO 

1620 


1640 

TRAP 

40000 : RETUR 

1650 

REM L 

OD5A0 


X660 

7 : r y 

"CXIIZZX XXE3 


>UPLICOTE AGAIN? 
fHEN 1260 


i # 0 , ■ ' D 

IECTORY : '■ 


7 : 7 : 7 "ENTER 


filename : 


X670 

INPUT AS; 

BS = "D 


■* 






X6SO 

BS C 3 3 = A S : 

CLOSE 


n 

2 





1690 

IF W=ASC C 

1 1 3 " 3 

T 

H 

E 

N 


O 

P 

: GOTO 

1710 









X700 

OPEN »2 , 4 

,0 ,BS 








X 7 1 O 

GRAPHICS 

a + 32 : 

P 

O 

K 

E 


7 

1 

/ x : 7 

: COLOR L : 

PLOT 

X 

0 

Y 





1720 

FOR Q=5CR 

TO S 

C 

R 

+ 

6 

4 

O 

O 

1730 

IF W= ASC C 

•■3") 

T 

H 

E 

N 


R 

= 

Q , 255 : PUT «2. 

R : POK 

E 


O 

9 

R 



X 7 4 O 

I F H=A5C C 

* ■ 2 ■ * 3 

T 

H 

E 

N 


P 

o 

«2 , R 

: P OKE Q,R 









X 7 5 O 

NEXT Q 









1760 

CLOSE «2 ; 

RETUR 

N 







1770 

REM PRERET 








1780 

7 : 7 ; 7 ' ■ 

PRESS 


R 

E 

T 

U 

R 

N 

1790 

CLOSE ttx : 

OPEN 

ttx 

» 

4 

f 

O 

1 

1800 

GET ttX - E : 

RETURN 







18X0 

REM ESCAPE **++» 


ME 

HU 



710 . 0 : POKE 752 


1820 CLOSE ttl:OPEN r fl / M K : " 

1830 GRAPHICS OlPOKE 710^80:P0KE 712,8 

70S ,200 : POKE 752,1 

" Master Penc i l ConMand Shee 


O : POKE 
1840 ' 

t" 

1850 1 


A3 ALPHABET 1 


I860 

7 11 

B) 

MOUE/DUP" 

X 8 7 0 

? ■ 1 

C 3 

CLEAR SCREEN 11 

1880 

7 • • 

D) 

DIRECTORY" 

1890 

7 • » 

E) 

4-MAY MIRROR" 

1900 

7 ■ ■ 

F 3 

FILL CFOR GET 

19X0 

7 " 1 

G 3 

GET DOTS CXO0 

1920 

7 " 

H) 

HORIZONTAL SP 

1930 

7 " 

13 

VERTICAL SPEEI 

1940 

7 * • 

J 3 

SAVE M NX - * 

1950 

7 •• 

K 3 

LOAD **»«■ 

1960 

7 " 

L 3 

EXIT" 

1970 

? ; ? 

■■ ENTER ONE CA~L) S ,B 

1980 

POKE 

82,8:7 

7 

1990 

? " 

H5PEED : ■■ : HS 

2000 

7 " 

U5PEED : ":VS 


2010 

2020 


X 

Y 


pos : 
pos : 


: X 
: Y 


2030 

7 

"4-WAY MIRROR : " 

2040 

IF 

M=1 THEN 

7 "ON 

2050 

IF 

M=0 THEN 

7 "OFF 1 

2060 

7 

"GET DOT 

node : " 

2070 

IF 

G = 1 THEN 

7 "ON 

2080 

IF 

G=Q THEN 

7 "OFF 1 

20 90 

POKE 82 , 2 


2X00 

PO 

SITION 24 

,15:7 " 

2 X X O 

GE 

T tXX, W : PRINT CHR 

2X20 

IF 

W> = ASC C" 

a") AND 

EN W = 

: W— 

3 2 


2X30 

IF 

14(65 OR 

W>90 THI 

2X40 

TR 

AP 2440 



W<=ASC C 


2X50 IF W=ASC C 

O : RETURN 

■ J" 

3 

THEM 

W=51 : GOSUB J 

2X60 IF W=ASC C 

O : RETURN 

*K" 

3 

THEN 

M=50 : GOSUB J 

2170 IF W=ASC C 

2X80 TRAP X 8 X 0 

■L" 

3 

THEN 

RETURN 

2X90 IF W= ASC C* 

■C " 

3 

THEN 

HS=0 : RETURN 

2200 IF W= ASC C 

■G" 

3 

AND i 

GT> X THEN GT- 

22X0 IF W=A3C C 

" G * * 

3 

THEN 

G = 1 : F = O 

2220 IF W= ASC ( 

= X : RETURN 

.. F i. 

3 

AND 

GT> X THEN G = < 

2230 IF W=ASC C 

"H" 

3 

THEN 

POSITION 2 t . 

7 "ENTER NEW HORI 

ZONTAL 

speed cx-xo: 

: : INPUT W:IF W> O 

AND W<11 THEN HS=W 

2240 IF W= ASC C 

•■I" 

3 

THEN 

POSITION 2 , . 

7 "ENTER NEW V 

ERT 

ICAL SPEED £1-103 

INPUT W : I F W> O 

AN 

ID 

W <11 

THEN VS=W 

2250 IF W=ASC C 

"E" 

'3 

THEN 

M=X~M 

2260 IF W=ASC C 

UB 1770 

" D * ' 

') 

THEN 

GOSUB 1580 : 

2270 IF W=ASCC 

6" : : RETURN 

"8" 

’) 

THEN 

GOSUB XXXO : 


2 2 80 

IF I4=ASC C" 

22 90 

GOTO 18X0 

2300 

REM COLFLI 

23X0 

POKE 752 , X 

232 0 

IF C = X THE 

: RETURN 

2330 

IF C=0 THE 

2 34 0 

RETURN 

2 350 

REM DRAW 

2360 

COLOR C 

2370 

IF S TRIG CO 

2380 

PLOT X , Y : L 

2390 

IF M= X THE 

2400 

GT + X 

IF G=i THE 

24X0 

«" : GT 

IF G=1 THE 

2420 

IF G = X AND 

MORE 

DOTS ACCE 

2430 

RETURN 

2440 

REM MAIN + 

2450 

470 

IF T P = X TH 

2460 

GRAPHICS 8 

2470 

POKE 7S2 , X 

: Joe E a 

2400 

SCR=PEEK £8 

2490 

IF PEEK C 8 7 

POKE 

7X0 . O : POKE 

2500 

GOSUB 160 : 

25X0 

gosub iee : 

2520 

GOSUB 2350 

2530 

Q = PEEK C 7 6 4 

2540 

IF 0=28 TH 

2550 

IF <1 = 33 TH 

2560 

2440 

IF HS=0 TH 

2570 

GOTO 2490 

2580 

REM BYE - 


A " 3 THEN GO 

P 

N C = Q : 7 " rs C 

N C = 1 : 7 "6C 


3 = X THEN RE 
= C 

N G05UB 103 
N GX CGT3 = X : 

N ? "GET DO 

GT=101 THE 

PTED FOR GE 

MATH LO 
EN GRAPHXCS 

: TP = 1 

■.POKE 710,0 
Sh“ 

83 +256«PEEK 


3 =0 THE 

N 

GR 

752 , X : 

"7 

"6 

REM JOY 

STIC 

REM BLI 

NK 

C 

: REM PL 

OT 

P 

3 : POKE 

76 

<*/ 

EN GOSU 

B 

18 

EN GOSU 

B 

2 3 

EN HS=i 

: T 

P = 


BYE ! ! 


S 


o 

o 


T 

o 

G 

T 


T 

O 


c 

A 

K 

Li 

O 

2 

X 

O 

O 


UB 

720 


LOR 

IS 

OFF 

LOR 

IS 

ON" 


URN 


Y CGT3 =Y : GT = 

MODE . DOT 

G=G : ? "NNO 
DOT MODE" 

P 

8+32 : GOTO 2 


7 "6 

893 

PHXCS 8+32 : 


RSOR 

INT 

55 

O 

O 

: VS = 1 : GOTO 


LIT ILI TY 


PACKAGE 


X REM , 

2 REM I SAN LEANDRO COMPUTER CLUB I 

3 REM I SPECIAL EDITION JOURNAL I 

4 REM IP.O. Box 1525. San Leandro. CAl 

5 REM I 94580-0152 I 

6 REM 1 I 

30000 REM I Z T:T*I ! h d : I ■ 1 1 1 1 I 

3O0OX DIM DECHORO$ C553 : 0ECWORDS-"hhm'h 
rtlh.TTlh.T:B¥^l KU24TTO K VAWLZ UT3-I JJJJJ. -*-i on : EZ 
J i NJTrmrj-i ■ ■ 


30002 DIM HORODEC5 C733 : MORDDEC$ = "hh717h 

n «iv.tL 1 1 aci ku«*4oc^. riGm "8Bor4.K^i i-cn Man 
c^v-. rt»4a(TW ^ [imi:r<x-i cot*" 

30003 DIM D5KCTRLS (48) : D5KCTRL$ = "hh HHR 

is^i m Hv-i -> h»4 >4 hH ■-* nhiM sro4 -j m 

Flv^n4 ,< 

30004 DIM CIOCTRL$£503 : CIOCTRL5="hRhhk 
kkkShhtlB^ hME J hOoJ Hm j hHHJ U>% R_.hhnJ J ro/Ui 
h hHK j vrrc m^rrn* ■ ■ 

30006 DIM B MO UE$ CX7X3 : BMOOE$ = "hhnTh!Tlh 
mh^3h^h!T*¥MiJd:C«MM FH : 1 4 JT1 i eCil 
nr-LK4Tlel ^CIJ kdiJ" 

30007 DIM 5EAREP5 £1263 : 5EAREPS = " huhriTh 
^ih^h.n3hh."nhh^i>*ri:Ci.!%'« ra. hhnmn^iW 
hhm^ cn^Gfsmxi :n : wij/." 

30008 5EAREPS C643 = ■ ‘UE ft il^i-IXli. »- M *TTB X r*T a| : I 

mv'.evi i i-n wa : i «p 

nrsmr 

300X0 DIM SEARCHS £1743 : SEARCH$ = "hhrT7h!1 
Hh^ilhSUi] 1 1 d h ^TT] K 7171 S h I ^fc-9 af ; -4 ? L3 l4 


30OXX 5EARCHS £59) =’‘^;gJ JWyi-ji f I ■ 

I : .-l'WiCl +A : CT4M.TT1 ! 5 cW*'J ^ J 31**1 AXliJ 

I 1 • 

300X2 5EARCHS C X X 7 3 = ■ ' HT! ♦ ffUTa Il'JMU 

HlaMrKtiM JVkTlY-r*£-HI+fiTra Id^Xld'J RTle 

rrmi" 

300X3 DIM BINDECSC37) : BINDEC$- ,, hhrChITI 
nvnci [8«auiw^0[^i be* jLZnra^Tr+* ■ 

300X4 DIM 9ECBINS C44) : DECBIN$ = "hh f-»nT!f*?l 

fTh. ■ nxrr«^jc^Tra^ra4" 

300X8 B MOOES £58) = * ■ eLt TX 1 i J WA » 4JD I 4 : J ; Krf ; > 43 

30019 B MOOES C X X 5 3 = * * t * K4 * » 4 ^PC^L/TTH + i I NT‘ 

! : Kd B J Ed ltd! I J IJil J 1 4 < V>t *>~i vC^L/TH kX J ddpram#' 


32767 RETURN 
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DISK M«l=* 


X 

2 

3 

4 

5 

6 


REM 

REM 

REM 

REM 

REM 

REM 


1600 
/ ° 

1010 
1020 
1030 
1040 
1050 
1060 
1070 
OR 1 = 
3 : NEK 
xoso 

1090 

xxoo 

xxxo 

1120 

1130 

1140 

1150 

1160 

1170 

XXOO 

xxoo 
1200 
1210 
1220 
X 2 3 O 
1240 
1250 
1260 
I 

1270 


56M LEANDRO COMPUTER CLUB 

SPECIAL EDITION JOURNAL 
IP.O. Box X 5 2 5 . San Leandro . CO I 
94580-0152 

GRAPHICS O : POKE 82, 0 : 5ETCOLOR 2,0 


REM 
REM 
REM 
REM 
REM 
REM 
DIM 
X TO 
T I : P 
DIM 
DIM 
DIM 
DIM 
DIM 
POSIT 
FOR I 
POWER 
NEXT 
DDE VI 
DUNIT 
DCOMN 
DST AT 
DBUFL 
D AUKX 
DTI ML 
UTOC = 
DATA 
FOR I 


VTOC DISPLAY PGM 10/20/84* 


SIN 

4 : R 
OKE 
LS C 
IN A 
EMP 
ILE 
OWE 
ION 
= Q 
(13 
I 

C = 7 
= 76 
D — 7 

5 = 7 
0 = 7 
= 77 
0 = 7 
360 
X O 4 
= X 


GS (30) ; BUF$(128) , ML $ (4) :F 
EAD BYTE: ML $ (X) =CHRS (BYTE 
7S2 . X 

13 : CL$=CHR$ (1253 
RYS(83 ; TEMP ARRAYS (643 
$ (2553 
$ (153 
R(7J 

12,12:? "ONE MOMENT...": 
TO 7 

= I N T (2 A I + 0 . S3 

68 

9 

70 

71 

72 
8 

74 


,76, 83 , 228 
TO 120:BUF$(I 1 I3= M * 1 


1280 

POKE 752, 

O 

1290 

DL = PEEK (5 

603 

1300 

OFFSET=PE 

EK C 

1310 

POSITION 


1320 

POSITION 

6,3 

chael 

Curry" 


1330 

TRAP 1330 

: PO 

-ter- Drive N u Mb 

e n 

2 : ? ■■ 

c 1— 4 on O 

1 o 

1340 

TRAP O 



1350 IF 
1360 IF 


DRI VE=0 
DRIVE <X 


1370 POSITION O, 


■D MAP ver* 


SITION 7,11 
“to nap 11 : POS! 

Quits *•; : II 

HEN GRAPHICS O : END 
R D R I V E > 4 THEN 1270 
5:? "Insert disk -to n 


: INPUT TEMP$ 


a r> and press [RETURN] 1 
1330 POKE 752,1 

DRIVE+48 
RIVE 

255 

82 : REM READ 
UF$3 

LO : VALUE=BUFFER : GOSUB 


1390 POKE DDEVICj 

1400 POKE DUNIT, Df 


X4XO POKE DTI ML O 

1420 POKE DC0MND) 

X430 BUFFER=ADRCB 
1440 ADDRESS=DBUF 
2 03 0 

1450 SECTOR=VTOC : 
1460 ADDRESS=DAUX 
2030 

X 4 7 O X = USR (ADR C ML 

X 4 8 O ? 1 ' K " : :POSIT 

1490 POKE 752, X : R 

X50G BL=A5C(BUF$( 
X5XO BU=ASC(BUFS( 
BL 

XS20 POSITION 0,1 

ON 10, X 
1530 WIDE=9 
1540 VALUE=BU : GOS 


REM READ VTOC SECTOR 

1 : VALUE = SECTOR : GOSUB 

S3 3 

ION 10,0:? "HJ ■ LI 4 >J_>1 
►3" 

EM CURSOR OFF 

43) +256*ASC (BUF$ (5 ) 3 

2 3 3 +256*A5C (BUFS (3) 3 - 


•SECTORS : 


! POSITI 


UB 2080 : 


ISINGS : 1 


1550 VALUE = BL : GOSUB 2080:? USINGS y " I" 

1560 VALUE=BU+BL: GOSUB 2080:? USINGS; 
XS70 POSITION 0,2:? " B YTE S : * 1 : POSITIO 

N 10,2 

1580 V ALUE = BU**X25 : GOSUB 2080:? USINGS^ 


.. ,... 

1590 VAL 


UE=BL*125 : GOSUB 2080:? USINGS; 


1600 VALE= CBU + BL3 +4125 : GOSUB 2080:? USI 

NG$ ; 

1610 YP=Q : KP-0 


1620 FOR 1 = 0 TO 3:POSITION 1+410,4:? I: 
iPOSITION 1+410, S : FOR J = 0 TO 9:? J: :NEH 
T J : NEXT I 


1630 POSITIO 
1640 
1650 


, o : ? "DRIVE : ■• ; 

FOR LOOP=lG TO 99 
BYTE = ASC (BUFS CLOOP . LOOPS 3 


DRIVE : 


1660 

GOSUB 1810 




1670 

FOR L O O P 1 = 1 

TO 8 



1680 

YP=YP+1 : IF 

YP>18 THEN YP=1 

: KP = KP + 

1 





1690 

POKE OFFSET 

+ C (YP + 5 3 +440 + XP3 

, ASC (BI 

NARYS (LOOP1 , LOOP 

13 3 



1700 

NEXT LOOP1 




1710 

NEXT LOOP 




1720 

REM POKE 76 

4 , 2 5 5 



1730 

POSITION 3, 

3 : ? •■ < < < 

PRESS 

ANY KEY 

TO 

CONTINUE >>> 

'■ : 



1740 

FOR 1=1 TO 

75;IF PEEK C7643 

<>255 T 

HEN 

1790 




1750 

NEXT I 




1760 

POSITION 3, 

3 : ? • 'MTC< 

Pn e s s 

A nw K e v 

To 

Continue ' : 



1770 

FOR 1=1 TO 

100 : NEXT 

I 



1780 GOTO 1730 
1790 POKE 764,255 
1800 GOTO 1270 

1810 REM SUBROUTINE TO RETURN 
1820 REM 8 CHAR STRING OF BINARY 
1830 REM CHARS 
1840 REM 

185 0 BINARYS = ,i nTVTiVi ] 11 : REM 8 
1860 FOR ITEHP=7 TO 0 STEP ~i 
1870 TEMP=POMER (ITEMP) 

1880 IF (BYTE-TEMP) >=© THEN BINARY$(8- 
8— ITEMP3 = "C" : B Y T E = 8 Y T E - T E MP 


SPACES 


ITEMP . 



1390 

NEXT ITEMP 


1900 

RETURN 


1910 

REM CONVERT 8 CH 


1920 

REM TO DECIMAL N 

4F" : NEXT 

1930 

REM 


1940 

BYTE=0 


1950 

FOR 1 = 7 TO O STEI 


1960 

IF BINARYS (8—1 _ 8 


E = BYTE + POWER Cl 3 

CDL+S3 

1970 

NEXT I 

i on 1 . 1 

1980 

P AR AM=B YTE 


1990 

RETURN 

1985 Mi 

2000 

REM DPOKE HI AND 


2010 

REM INTO ADDRESS 

INT "En 

2020 

REM 

ON 12, 1 

2030 

POKE ADDRESS+1,11 

T DRIVE 

2040 

POKE ADDRESS, VALI 


STRING TO 


» -1 
13 <> - 


THEN BYT 


13 +42563 
2050 RETURN 

2060 REM RIGHT JUSTIFY NUMERIC INTO ST 
RING WITH LENGTH OF I J fr 4 ► J =4 
2070 REM 

2080 FOR 1=1 TO WIDE 
2090 USINGS (I, 13 = " " 

2100 NEXT I : REM INIT STRING 

2110 TEMPS=STRS CVALUE3 

2120 USINGS ( WIDE — L EN C T E MP $ 3 3 = TEMP $ 

2130 RETURN 


RELOC 


1 

2 

3 

4 

5 

6 

lO 


REM 

REM 

REM 

REM 

REM 

REM 


I SAN LEANDRO C 
I SPECIAL EDIT 
I P . O . BOX 1525 . 

I 94580- 


OMPUTER CLUB 
ION JOURNAL 
San Leandno.CA 
0152 


GOSUB 30000 
20 LOME M0 = P E E K C1283 +PE 
B lOO 

30 NL=LOMEM0+1O 


EK (129) +42 5 6 : GOSU 


FOR I = L O ME MO TO NL- 


50 

I 

60 Z-USR CADR (RELOCS) 

70 END 
lOO ? PEEK C1283 +PEEK (1 

soooe rem 

30005 DIM RELOCS(55) :R 

51 3 

KarwL^" 

32767 RETURN 


L 3 : GOSUB lOO 
l:POKE I. O: NEXT 


O ME MO ) : GOSUB lOO 
293 +42 5 6 : RETURN 


ELOC$ = "hhHBh." 


52 


E> I RECT 
WRITI MIC3 


re 


|N| 


DIGITOL «L_«RM 
CLOCK 


I 5AN LEANDRO COMPUTER CLUB 
I SPECIAL EDITION JOURNAL 

I P . O . Box 1525 . San Leandro . CA 

I 94580-0152 


83. 40 .'POKE 752,1:7 C 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 1 

lO CLR 

20 POKE 82,0:POKE 

HRS CL 253 
30 
40 REM 

50 REM CODE LOADING ROUTINE 
60 REM 

70 POSITION 13 / 2 : ? "LOADING CODE" : FOR 
1 = 1 TO 195 : READ A ; CODES (I, I) =CHR$ CA) :S 
OUND 1 ; A, 10^ 4 : SOUND 1,A+1 ; 14, 2 : NEKT X : 
CDE=ADR CCODES3 
80 REM 

90 REM INITIALIZE TEST STRING 

LOO REM 

LLO POSITION 10,4:7 "INITIALIZING STRI 
NG" : FOR J = 1 TO 40:FOR 1=0 TO 23:K=IM40 


2 R 

3 R 

4 T 

5 G 
POK 

6 ? 


7 - 

R-' 

HT‘ 


DIGITAL ALARM CLOCK IN 3K 
BV 5TEUE KUNZE aqe 14 

Adelaide coMPUter Club 
Repr inted in The San Leandro 

Computer Club Special Edition 
EM P . O . BOH LS25 

SAN LEANDRO. CA 94577-0152 

I ME = 250 

RAPHICS O : POKE 710,55:POKE 7X2,176: 

E 709 , 15 : POKE 7S2,i:? !? :? 

"THIS IS A PROGRAM FOR A DIGITAL-" 

"ALARM CLOCK HHICH HAS A 24-HOUR":? 
OUNTER. I DON'T THINK THAT ANYONE" 

"MOULD LEAVE THEIR COMPUTER ON OVE 

:? "NIGHT. BUT IT SHOWS YOU JUST UA 
:? "YOU CAN DO MITH A FEW LINES AND 


+ J : AS CK,K) = 

CHRS C64 + J) 




8 ? 

"HOW EASY 

IT IS 

ON 

120 SOUND 1 

, 1+20, 10, 4 : 

: SOUND O, 

1 + 21, 

A4, 


: ? "PRESS 

START 

WME 

4 : NEKT X 1 NE 

KT J : SOUND 

1, 0,0^0: 

SOUND 


9 IF 

PEEK CS32 

793 < > 6 

THE 

0,0,0 





lO D 

IM DS C 2 3 , 

AS Cl) , R 

S Cl 

130 REM 





20 O 

PEN 8*1,4, 

O, "K : " 



140 REM SHOW SPEED DIFFERANCE BETWEEN 
A PRINT AND A DIRECT WRITE 
X 5 O REM 

X60 ? CHR5 CX253 : POSITION 12,2:7 "FIRST 

USE A PRINT" S POKE 20,0 
X70 IF PEEKC20) <100 THEM X70 

AS : : POKE 20, O 

PEEKC20) <50 THEN 190 
! ? " NOW THE FAST HA 


XBO 
190 IF 
20d ? 


FOR I=f 
FOR I=f 


TO 1000 : NEKT I 

TO 24 j ? : NEXT I 1 POSITION 


:USR(CDE f 0 ; 0 ; ADR(AS) , LENCAS33 


Y" 

2X0 
220 
/ 20 
230 

240 FOR 1=0 TO S00:NEHT 

250 ? CHRSC125J ;? " 

TLE FUN WITH": 1 POKE 20, 

260 IF PEEK C203 <100 THE 
270 REM 

280 REM SHOW POSITIONAL CAPABILITIES 

290 REM 

300 AS 


NOW rOR A LIT 


260 


: A$ = " FAST i:iyi;i>x«j; seneen nVE 
":A$£27 ; 27J=CHR$(30) : A$ Cl, 1) =CHR$ C3 

X 3 


ISR CODE . 


, ADR C A $ 3 


I C AS 3 3 : POK 


3X0 A = L 

E 20,0 

320 IF PEEK C203 <150 THEN 320 

330 FOP 1=10 TO 100:X=RNDC03«40:Y=RNDC 
0 3 *42 4 : A = U5R CCDE^X, Y, ADR CA$) / LENCA$3 3 
340 NEXT I 

350 FOR 1 = 0 TO 1500:NEKT I:? C HR S C1253 

: POSITION 14,2:? "END OF 
N 2,21:RUN "D: MENU . BAS" 

360 HEM 

370 REM DATA FOR MACHINE 
380 REM 

390 DATA 169,0,16; 

X, 104, 201, 2 T 208,6, 

, 104,104, 170, 104 
400 DATA 104,168,224,41, 


7 ^ J 

164, 


69, 

4X0 


:,i04 
9 , 133 
DATA 


,144,246, 
L.88. 133 . 


, 104, 104 , XO< 
i 213 , 96 , 169 

O, 136, 48, XX, 24, 105, 40, 133, 207 

i ie 


, 230, 208, 208, 242, 165, 207, 24, 

, 207 ,165 , 208 
420 DATA 101,89,133,208,138,24,101,207 

,133, 207,144,2.230,208, 104, 133,204,104 
203,104, 133,209, 104 

170, 208,2, 198, 209, 165, 207,133 
, 208, 133,206,160,0,177,203,201 
, 49, 72 j.41, 127 

, 16,6 ,104, 24 , 105, 6 4, 144 
,11,201,96,16,6,104,56,233,32,176,1,10 
4,145,205, 200 

450 DATA 208, 4 , 230 ; 204,230, 206, 202, 208 

,214,198 , 20 9, 16, 210,169,1, 133, 212, 169, 
O .133. 213. 96 . 202. 208. 4. 198. 209 
460 DATA 48,240, 165, 207, 24,105, 40,133, 

, 101.203. 133, 2 


,133, 

430 DATA 
, 205^ 165, . 

, 155, 240, r x. 

44© DATA 201.32, 


DATA 48,240, 165, 207 ; 
207,144,2, 230 , 208, 152,56, 
03,144. 165. 204, 208, 161 


50 GRAPHICS O : POKE 709,X5:POKE 710,O:P 

OKE 752,1 


60 
70 
80 
90 D S = 
lOO 

no 
120 
130 


I #4 1 


54 04:1: 


ENTER ALL NECESSARY DATA 



" HOUR " ; : 

INPUT H 



"MINUTE " ; : 

INPUT M 


“9 

"SECOND " j : 

INPUT S 


? 

"VOLUME OF 

SECOND-BEEP 

CO-153 " ; 

UT 

V : TRAP 150 



? 

: ? "DO YOU 

WANT TO SET 

AN ALARM 

MI7 

" 3 GET tSl r A 



IF 

A <> ASC C"Y" 

; THEN GOTO 

240 


180 ? :? "TO TURN THE ALARM OFF YOU MU 

ST PRESS" : ? " THE FIREBUTTON ON JOYSTI 

ck «! ■•:? " or press eww ? nw 1" 

200 ? : ? "ENTER DATA FOR ALARM ! " 

210 ? " HOUR "J : INPUT H2 

220 ? "MINUTE" INPUT M2 

230 ? "SECOND"; :INPUT 52 

240 ? : ? : ? "PRESS bl«l:ai TO BEGIN ! " 
250 IF PEEK (53279) <>6 THEM 250 
300 REM ^SETTING UP THE DISPLAY** 

320 GRAPHICS 18 

712 , 176 

5,3:? 8*6 ; " m IT H" 

7,5:? B6 ; "fl" 


325 

330 


POKE 

POSZTIOM 
340 POSITION 
350 POSITION 10,5:? 8*6; "H' 

375 POSITION 
2 i ":";52 


,9:? 886 ; "HW:!!": HZ ; 


DEMO 

” : POSITIO 

385 

0=176 






390 

POKE 712 

1 ® 





400 

REM **ACT 

UAL C 

OUNTE 

R** 

CODE 

ROUTINE 

405 

POSITION 

5,5: 

? 8*6 ; 

" 



410 

SOUND e. 

50 ,14 



203, 

202, 16, 25 

415 

POSITION 

3,5: 

? 8*6 ; 

" 

166 , 

85, 208, 27 

420 

POSITION 

11 , 5 

: ? »6 

. i. 



550 

S= S + l : IF 

S> 59 

THEN 

M= M+ 1 : S = 0 

.6,4, 

192 , 24, 14 

° , 

60 , 6 ,10 




141, 

133, 212 , 1 

560 

IF M> 5 9 

THEN 

H = H + 1 

: M=o : SOUND 



10, 

lO 





: SOUND 


570 IF H < = 11 THEN D S = " a M* 
580 IF H> =12 THEN DS = "PtV 


590 

IF H> 23 

THEN H = 0 : M= 0 : 

: S = 0 : DS = " 

AM" 

600 

REM **PRI 

NTING THE NUMBERS** 


650 

POSITION 

5,5:? S*6 ; H 



660 

POSITION 

8,5:? 886 ; M 



670 

POSITION 

11,5:? *86 ; S 



675 

FOR P = 1 

TO 5 : NEXT P 



680 

POSITION 

1,5:? 8*6 ; DS 



690 

SOUND O , 

0,0,0 



700 

FOR P = X 

TO TIME : NEKT 

P 


750 

IF H2 = H 

AND M2=M AND 

52=5 AND 

A = 

C C" 

Y"3 THEN 

SOUND 2,30,8, 

, 15 : SOUND 

3 7 


760 IF STRIG CO) =0 OR PEEKC53279): 

N SOUND 2 , O , O , 0 : SOUND 3, 0,0,0 
800 GOTO 400 


lOOO END 


: REM RETYPED BY P.J. BARATTA 


53 



DOS MOD 


A. REM , 

2 REM I SAN LEANDRO COMPUTER CLUB I 

3 REM I SPECIAL EDITION JOURNAL I 

4 REM Ip.o. BOX 1525 . San Leandro . CA I 

5 REM I 94-580 — 0152 I 

6 REM 1 — I 

J.O GRAPHICS 0:? "DOS 2.0 MODIFICATION" 

:? "FUJI ATARI COMPUTER USERS' GROU 
P" : ? "JAPAN" 

20 ? :? :? "MODIFYING DO5.2.0"!? "WAIT 

FOR A MOMENT^ PLEASE" 

30 RESTORE : TRAP lOO 

40 READ A, K: POKE A,K;GOTO 40 


XOO ? 

: ? "THANK 

YOU FOR 

WAITING . 

. " 1 

1 ? I ? 

"NOW 

TYPE ' DOS 

[RETURN] 

• ■ * 



XXO ? 

"AND SAUE 

THIS NEW 

DOS TO 

YOUR" 

X2Q ? 

"DISKETTE 

USING ' H 

1 COMMAND, 

• « 


130 END 


xooo 

DATA 

2X74 , X 6 9 

xoxo 

DATA 

2X75 , 68 

X020 

DATA 

2X76 , X 4 X 

X03O 

DATA 

2X77 , 41 

1040 

DATA 

2X78 ; 3 

X 0 5 0 

DATA 

2X79 ; X 6 9 

X060 

DATA 

2X80 j 203 

X070 

DATA 

2181,141 

1080 

DATA 

2X82 , 42 

1090 

DATA 

2183, 3 

X X 0 o 

DATA 

2X84 , X 6 9 

xxxo 

DATA 

2X85 , 7 

X X 2 O 

DATA 

2X86 , X4X 

1X30 

DATA 

2X87 , 43 

X X 4 0 

DATA 

2X89 ; 173 

XXSO 

DATA 

2X90 , 83 

XX60 

DATA 

2 X 9 X , 24 

1X70 

DATA 

2X92 , 208 

1180 

DATA 

2X93 , XO 

1X90 

DATA 

2X94 ; X 6 9 

X20O 

DATA 

2X95 , 40 

X 2 X 0 

DATA 

2196, X 4 X 

X 2 2 O 

DATA 

2X97 , 84 

X 2 3 0 

DATA 

2198, 3 

1240 

DATA 

2X99 r 169 

X2SO 

DATA 

2200 , 23 

1260 

DATA 

2201 , 76 

1270 

DATA 

2202, XXX 

1230 

DATA 

2203 , 21 

1290 

DATA 

2204, 108 

X 3 O 0 

DATA 

2205 , 84 

1310 

DATA 

2206 r 24 

1320 

DATA 

2207 , X 6 9 

X 3 3 0 

DATA 

2208, 0 

1340 

DATA 

2209, 141 

1350 

DATA 

22X0 , 83 

1360 

DATA 

2 2 X X , 24 

1370 

DATA 

22X2 , 76 

X 380 

DATA 

22X3 , XS9 

X 3 9 0 

DATA 

22X4 , 23 

X 4 0 O 

DATA 

4867, 40 

X 4 X O 

DATA 

4868 , 19 

X 4 2 0 

DATA 

4869 F 80 

X 4 3 0 

DATA 

4871, 5 

X 4 4 O 

DATA 

4872,5 

1450 

DATA 

4873 , O 

1460 

DATA 

4874 , 7 

1470 

DATA 

4875 , 7 

1480 

DATA 

4879 , 128 

X 4 9 O 

DATA 

4958, 80 

1500 

DATA 

5009 , 4 

1510 

DATA 

50X4 , X 

X 5 2 0 

DATA 

50X5 , X 

X 5 3 0 

DATA 

50X7, 84 

X 5 4 0 

DATA 

5025 , 20 

X 5 5 O 

DATA 

5033 , X 9 5 

1560 

DATA 

5041 ; 32 

1570 

DATA 

5044 , 2 

1580 

DATA 

5046, 34 

1590 

DATA 

5047 , 34 

X60O 

DATA 

5049 ,139 

X 6 X 0 

DATA 

5050 , 1 

X620 

DATA 

5X05, 24 

1630 

DATA 

5X08, 2 

1640 

DATA 

5X10, 23 

1650 

DATA 

51X1,23 

1660 

DATA 

51X3 , 153 

1670 

DATA 

5X85, 66 

X680 

DATA 

5X86, 40 

1690 

DATA 

5201 , 67 

X70O 

DATA 

5202 , O 


X 7 X O 

DATA 

5450 , 8 

1720 

DATA 

5535 , X 92 

1730 

DATA 

5536 ,224 

1740 

DATA 

5538 ,225 

1750 

DATA 

S 9 2 7 , 155 

1760 

DATA 

5928 ,68 

1770 

DATA 

5929, 49 

X 7 8 O 

DATA 

5930, 58 

1790 

DATA 

5 9 3 X , 68 

1800 

DATA 

5932, 69 

18X0 

DATA 

5933 ,06 

1820 

DATA 

5934, 46 

1830 

DATA 

5935 , 83 

1840 

DATA 

5936 , 89 

X 8 5 0 

DATA 

5937, 83 

I860 

DATA 

3938, X55 

1870 

DATA 

5939 ,32 

1880 

DATA 

5940 , X 4 6 

1890 

DATA 

5941 , 8 

X 9 0 0 

DATA 

5942, 108 

X 9 X 0 

DATA 

5943, 250 

1920 

DATA 

5944, X 9 X 

1930 

DATA 

5943, 23 

1940 

DATA 

6226, X55 

X 9 5 0 

DATA 

6227 , O 

I960 

DATA 

6220, XX 

1970 

DATA 

6229, 29 

1980 

DATA 

6429, 76 

1990 

DATA 

6430, SX 

2000 

DATA 

6431, 23 

20X0 

DATA 

6780, 2 


SIMPLE TEXT DUMP 

1 REM 

2 REM 1 SAN LEANDRO COMPUTER CLUB I 

3 REM t SPECIAL EDITION JOURNAL I 

4 REM IP.O. Box 1525. San Leandro.CAl 

5 REM I 94580-0X52 I 

6 REM ' * 

XO REM SIMPLE SCREEN DUMP T. REICHARD 

20 DIM 5CR$C40»2S) .HSC403 

30 CLOSE 02 : OPEN 02,4,0, "K:" 

40 CLOSE 03 : OPEN 04 , X3 / 0,"E:" 

50 POKE 82, O : POSITION 0,0:? "*t"j :REM 

n u ^4 m m rriim 

60 POKE 764,255 

70 IF PEEK C53279) =6 THEN X30:REM CHECK 

FOR START KEY 

80 IF PEEK (7643 =255 THEN 70 

90 GET 02 r KEY 

XOO ? CHR$ (KEY) ! 

XXO IF PEEK C843 = 23 THEN X90 

X 2 0 GOTO 60 

X 3 O POKE 752 , X : POSITION 0,O:? "t4": : RE 

M tdUXifVflA I.THI4 

X 4 O FOR R0M=0 TO 22 

X 5 0 H$ = " " 

160 POSITION O , ROM: INPUT 04 : H$ 

X70 LPRINT H$ 

X 8 0 NEXT ROM 

X 9 0 POKE 752 , O : POSITION 0,0;? " ? 4- " j :RE 

M PT5T3 1-1J44MR i;[Hia 
200 GOTO 60 

500 REM SPECIAL NOTE ! IN LINES 50 . X3 

O AND X 9 O THE ! ! ARE SUPPOSED TO 

600 REM BE ESC DOWN FOLLOWED BY ESC UP 
ARROW WHICH CANNOT BE PRINTED 

700 REM USING THIS WORD PROCESSOR . PL 

EASE CHANGE THEM IN YOUR PROGRAM! 


54 


K) s 


1&-BIT SOUND 


1 REM 

2 REM 

3 REM 
41 REM 

5 REM 

6 REM 

ioo rem 

1X0 GRAPHICS 18:? tt6^? «6; M 16 BIT 

SOUND"!? tt6 ; ? «6^" BY JERRY HHITE" 

120 DIM S16$(56) : REM PM i 1 1 ;1 :Iil I h * 4 l M 

130 FOR ME-1 TO 56 i READ BYTE:516$ CME, M 

El =CHR5 (BYTE) ! NEXT ME 

140 REM ill l!M 

ISO SOUND 0,0,000 : POKE 53768,120 

160 DIM N$£241,FREQ£7,12) : NS = "B AOA Gtt 

G EOF E DttD C»C ":GOTO 220 

170 REM M41J Vl'M-i H:l:Xi]lb + 4:i4 

ISO POSITION 6,5:? 06 ; "OCTAUE:"; OCTAVE 

: IF BOTH THEN ? tt6 j * »-§-■» • OCTOVE + 1 : 

190 POSITION 6.7:? «6 j "PITCH=" ; PITCH j " 

200 5P = PITCHl*2-i ! POSITION 6^9:? tt6 ; - "NO 

TE = ,I ;N$£5P,5P+1) : RETURN 
210 REM 

220 FOR OCTAVE = 7 TO JL STEP -I: FOR PITC 
K = 12 TO JL STEP —I 

230 READ FREQ : FREQ £OCTAVE, PITCH? =FREQ : 

NEKT PITCH : NEKT OCTAVE 

240 0OTH = O : LOWOCT = 7 : 14 A I T = 1 0 


250 REM !£r*4 


T 


-I 

Tj 


TT 

TT 


iT® 


260 FOR OCT 

A V 

E 

- 

L 

O 

woe 

T 


TO I 

S 

TEP - 

I : FOR 

PITCH=12 T 

O 

I 


S 

T 

EP 

— 

I 





270 SETCOLO 

R 

4 

I 

P 

I 

TCH 

1 

e 

: GOS 

UB 

180 : 

VOL = 8 

:POKE 540, V 

OL 












28D IF NOT 

B 

O 

T 

H 


THE 

N 


J W~ U 

SR 

CADR £516$) 

, FREQ £OCTAV 

E » 

P 

I 

T 

C 

HJ , 

V 

o 

L) : G 

OT 

O 300 


290 JN=USR C 

AD 

R 

C 

S 

I 

6$9 

/ 

F 

REQ C 

OC 

TAVE, 

PITCH 

3 , VOL ,FREQ C 

OC 

T 

A 

V 

E 


P 

I 

TCH) 


OL) 


300 IF NOT 

V 

O 

L 


T 

HEN 


3 

20 




310 VOL=PEE 

K C 

5 

4 

e 

3 

: GO 

T 

O 

280 




320 GOSUB 4 

BO 












330 NEKT PI 

TC 

H 


M 

E 

XT 

O 

C 

T AVE 




340 IF NOT 

B 

O 

T 

H 


THE 

N 


BOTH 

= 1 

: L o wo c T = 6 : 

GOTO 260 













350 FOR ME - 

5 

T 

O 


9 

ST 

E 

P 

2 : P 

OS 

ITION 

6 y ME 


:? «6;" JNEKT ME 

360 REM 

370 VOL = 8 : OCTAVE = 5 : PITCH = 7 ; HOLD = 16 : MO I 
T = 8 : GOSUB S30 

300 PITCH=12 : HOLD=4 : WAIT=fl ! GOSUB 530 
390 OCTAVE = 6 : PITCH=X : HOLD = 4 : MAIT = 0 : GOS 
UB 5 30 

400 OCTAVE=5 : PITCH-12 : HOLD = 4 : WAIT = 0 : GO 
SUB 530 

410 PITCH=10 : HOLD— 16 : WAIT=8 : GOSUB 530 
420 PITCH=12:HOLD=16: MOIT=32 : GOSUB 530 
430 PITCH=3 : HOLD=16 : NAIT=8 : GOSUB 530 
440 PITCH=7 : H O L D — 3 2 : WAIT=8 : GOSUB 530 
4SO GRAPHICS 0:? :? "BASIC":? "IS"; :EN 

D 

4 6o rem 

470 REM I Jil :m T r-* 4 \ * , i-B>] ! I O 

480 POKE 540 ^ WAIT 

430 IF PEEK £5401 THEN 430 

500 RETURN 

sio rem 4 1 1 :1 ! H>1 : K4<ld d 

5 2 0 REM ki 'I'M 

53© POKE 540,HOLD:K=U5R£ADRC516$l,FREa 
£OCTAVE , PITCH1 , VOL^FREQ £OCTAVE + l, PITCH 
1 , VOL1 

540 IF PEEK £540] THEN 540 

550 X = USR C AD R £S16S] ^ FREQ £OCTAVE^ PITCH) 
, 0, FREQ £OCTAVE + l^ PITCH) , 01 
560 GOTO 480 

20000 REM IJ III W3iTiWit?7M:1IM:Iill>»4:iN 
20010 DATA 104, 201,2,240^33,201,4,240, 
12, 170,224, 0 p 240,41 

20020 DATA 202,104,104^240,247,208,245 
, 104 ,141,2,210,104,141,0 

20030 DATA 210,104,104,41,15,9,160,141 
^ 3,210,104,141 , 6, 210 

2004O DATA 104,141^,210, 104, 104 ,4 X^ 15 
, 3 / 160, 141, 7, 210 , 36 
30000 REM 

30010 DATA 27357,25821,24372,23003,217 
12, 20493,19342 ,18256, 17231, 16264, 15351 
, 14483 


SAN LEANDRO COMPUTER CLUB 
SPECIAL EDITION JOURNAL 
P.O. Box 1525. San Leanclno.CA 
94580-0152 


30020 DATA 13675,12907,12182 

52, 10243, 9668, 9125, 8612^8126 
30030 DATA 6834,6450,6088,57 

18, 4830,4559,4303 , 4061,3832 t 
30040 DATA 3414,3222,3040,28 

55,2412, 2276,2148,2027/1913, 
30050 DATA 1703,1607,1517,14 

74, 1202 / 11J4 ; 1070,1010,953, 8 
30060 DATA 848,800^755,712,6 

/564/532,501,473,446 
30070 DATA 421,397^374,353,3 

, 278, 262,247,233, 219 


, 11498, 108 
, 7626^7241 
46 , 5423, 51 
3617 

69, 2708, 25 
1805 

31, 1350, 12 
99 

72, 634, 590 
32 ; 313, 295 


PLAYER MISSLE 
DR I VER 


1 REM ■ , 

2 REM I SAN LEANDRO COMPUTER CLUB I 

3 REM I SPECIAL EDITION JOURNAL I 

4 REM iP.O. Box 1525. San L e a n d F O . C A I 

5 REM I 94580—0152 I 

6 REM ■ I 

10 REM IU:H>3:»4U^:H>3=4:[i];Mid:7 : li*<iS:i 


30 OPEN ttX y 0,0,"G 
RAPHICS 1+16 

: " : OPEN ttS , 4,0," 

K : : 

40 

? ttl ; "POS 0,40 

,16" : ? ttl | "SIZE 

0 , 2 " 

50 

? »X ;"OBJ 0" , A 

DR C"» ..."3,4 


60 

70 

80 

? ttl ; "COLOR 0 , 
H = 0 : Y = 0 

GET ttS , K 

0,15":? ttl j * 'PRIOR 4" 

90 

IF K = ASC Ct") 

THEN Y=Y— I : GOTO 

200 

100 

IF K=A5C C"4"3 

THEN Y=Y+l:GOTO 

200 

110 

IF K = ASC C" + ") 

THEM X=X+I : GOTO 

200 

120 

IF K = A S C C* + ") 

THEN K=X-1 : GOTO 

200 

130 

IF K=155 THEN 

X = 0 : Y=Y+1 : GOTO 

200 

140 

POSITION X,Y: 

? D6^CHR$CK3 : 


150 

K=K+1 : IF K>19 

THEM Y = Y+- X 


200 

IF X < 0 THEN X 

= 19 


2IO 

IF X>19 THEN 

X — 0 


220 

IF Y < 0 THEN Y 

= 23 


230 

IF Y > 2 3 THEN 

Y = 0 


240 

250 

? ttX ; "POS 0" ; 
GOTO 80 

40+X*8 ; 16+ Y*4 



DISK FORMATTER 


SAN LEANDRO COMPUTER CLUB 
SPECIAL EDITION JOURNAL 

P.O. Box 1525 . San Leandro . Cft 

94580-0152 

FORMATTING PROGRAM 


X REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

TO REM DISK 

11 REM BY 

12 REM KENNETH J . PIETRUCHA 

13 REM NOVEMBER 29, 1984 

20 T0TAL = 0 : PRINT C HR S £125) :POKE 752,1 
25 POKE 709, 14 : POKE 710, 24 : POKE 712,20 

30 TOT AL = TOT AL-t-I 

35 POSITION 6,7:PRINT "INSERT DISK TO 

BE FORMATTED" 

40 POSITION 5,9:PRINT "PRESS START TO 

FORMAT DISK TOTAL 

45 IF PEEK £53279) <>6 THEN 45 
48 POKE 710, 32 

50 FOR X - 1 TO 2 0 0: NEXT X 

52 XIO 254 , ttl , O 7 O , "D : " 

60 POKE 710,20 

65 POSITION 6, 14 : PRINT "FORMAT OF DISK 
tt* 1 j TOTAL; " COMPLETE" 

70 POSITION 7 , 16 : PRINT "PRESS OPTION T 

O CONTINUE" 

75 IF PEEK £53279) <>3 THEN 75 
80 PRINT CHRS £125) : GOTO 25 
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0100 ;16 BIT SOUND SUBROUTINE 
0110 ;REV 9/23/82 BY JERRY WHITE 
0120 ; CREATE 1 OR 2 16 BIT SOUNDS 
0130 ; FROM BASIC USR CALL 
0140 ; STORED IN STRING SI 6* 

0150 ;FOR 1 SOUND 
0 1 60 ; J W=USR ( ADR < S 1 6* ) , FREQ , VOL ) 

0170 ;FOR 2 SOUNDS 

0180 j JW=USR <ADR <S16$) „ FREQ , VOL , FREQ , VOL ) 
0190 ; 


0000 


0200 


*= 

$600 

? RELOCATABLE 

0600 

68 

0210 


PLA 


;# OF PARAMETERS 

0601 

C902 

0220 


CMP 

#2 

; IF 2 PARAMETERS 

0603 

F021 

0230 


BEQ 

TWO 

; SINGLE SOUND ROUTINE 

0605 

C904 

0240 


CMP 

#4 

; IF 4 PARAMETERS 

0607 

F00C 

0250 


BEQ 

FOUR 

; DOUBLE SOUND ROUTINE 



0260 

3 






0270 

; AVOID 

LOCKUP IN CASE 

OF 

0609 

AA 

0280 


TAX 


; INVALID # OF PARAMETERS 

060A 

E000 

0290 

OOOPS 

CPX 

#0 

5 NONE? 

060C 

F029 

0300 


BEQ 

END 

; STACK CLEAN 

060E 

CA 

0310 


DEX 


; SUBTRACT 1 

060F 

68 

0320 


PLA 


; GET PARAMETER 

0610 

68 

0330 


PLA 


;OFF MY STACK 

061 1 

F0F7 

0340 


BEQ 

OOOPS 

; FORCE GOTO OOOPS 

0613 

D0F5 

0350 


BNE 

OOOPS 

; IN EITHER CASE 



0360 

3 




0615 

68 

0370 

FOUR 

PLA 


j HI BYTE 

0616 

8D02D2 

0380 


STA 

$D202 

; AUDF2 

0619 

68 

0390 


PLA 


: LOW BYTE 

061 A 

8D00D2 

0400 


STA 

$D200 

; AUDF1 

06 ID 

68 

0410 


PLA 


; VOLUME 

06 IE 

68 

0420 


PLA 


j NEED ONLY LOW BYTE 

06 IF 

290F 

0430 


AND 

#*0F 

? MAKE 0 TO 15 

0621 

09A0 

0440 


ORA 

#$A0 

; DISTORTION 10 

0623 

8D03D2 

0450 


STA 

*D203 

; AUDC2 



0460 





0626 

68 

0470 

TWO 

PLA 


; HI BYTE 

0627 

8D06D2 

0480 


STA 

$D206 

; AUDF4 

062A 

68 

0490 


PLA 


; LOW BYTE 

062B 

8D04D2 

0500 


STA 

$D204 

; AUDF3 

062E 

68 

0510 


PLA 


VOLUME 

062F 

68 

0520 


PLA 


5 NEED ONLY LOW BYTE 

0630 

290F 

0530 


AND 

#$0F 

; MAKE 0 TO 15 

0632 

09A0 

0540 


ORA 

#«A0 

; DISTORTION 10 

0634 

BD07D2 

0550 


STA 

$D207 

; AUDC4 



0560 

5 




0637 

60 

0570 

END 

RTS 


; RETURN TO BASIC 
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RBUG 


; JIN WA RREN 

; SAM LEANDRO COMPUTER CLUB 

; P.O. 6 OX 1525 

; SAN LEANDRO CA 94577-0132 

; KEY SYSTEM BBS (415) 352-5528 

FOR RUN TIME COMPILE: 

SET 3495=12 FROM THE MO MOTOR 
USE DOS 2.0 

COMPILE EVERYTHING FROM DISK 


MODULE 
I NT 

VERTICAL_CFFSET , HORIZONTAL_OFFSET , 
TRIGCER_LUTTOM 
CARD 

Ti::E=[ 1 500 ] , SCREEN , I j TOTAL_ECGS , 
EATER_BIRT1:= [ 0 ] , BIG_EOY_BIRTH= [ 0 ] , 
MATE_BIRTH-[0] , KATE_3IRTH_RATE = [ 200 ] , 
BIG_BOY_BIETH_RATE=[2CO] , 
EATER_BIRTH_RATE=[300] , 

ACR_KAIl1 ,adr_edit , adr_bug , KAMSET 
BYTE 

COLL MI iS = [15] > ROWS = [ 23 ] .JOYSTICK, 
eug_ecgs,ami:a_;:at:>[5] , 

CON3CLE-33279, OLCCHR=93 ) 
SCR£EN__L0L;=88 ,SCREEiMII=89 , 

SCREEN_SGG .HUE’ [ 0 ] ,GENERATICN={ 0 ] , 

pos,posx, background- [so] , 

EATER_COLUI T.S , EATER JXWS , 

2 1 G_30 Y'__0 0 LU M I IS , 3IG_BuY_ROWS , 

OPTION- [0 ] ,i:i:u;.U;i_EGCS=u25 ] .KEY-764, 
HAT S_CC LUMAS ,:2ATE_ROV:S ,CENE=l 11 ] , 
REjCURSE- [ 0 ] .REQUIRED 
BYTE A FRA Y HARDLINE 

DEFINE PCP=" [ $68 $68] M 

plcc r.E_: ( Ai:;=ERr.OR() 

?:.oc fx_ed:t() 
pc? 

ERROR ( ) 


PROC FE__2UC = SRRCA ( ) 

Pi.OC l/AITO 

7CR I=C TO 1000 00 CD 

* PET URN 


PROC PAUSE (CARD NUK) 
CARD I 

FOR 1=0 TO MUM 
DO WAITO OD 
RETURN 

PROC BEEP() 

FOR 1 = 1 TO 500 
DO 

SOUND(2,255,12,3) 

OD 

SNDRSTO 

RETURN 

PROC DINGO 
FOR 1=0 TO 500 


*") 

PRINTC 

position cursor with joystick 0 
draw or erase bit with trigger 
N ) T=1 D0HGO 
PAUSE( 7 ) 

DO 

T*»Strig( 0) TEST’St ick(0) 

IF T=0 THEN PRINTC*") DINGO 
EXIT 
FI 
IF 

TEST015 THEN TEST=1 
EXIT 
FI 
IF 

CONSOLES OR CONSOLES THEN 
EXIT 
FI 

PAUSE ( 7 ) 

OD 

FI 

?AUSE( 6 ) 

IF 

CONSOLE’ 3 THEN PART__COUNT— +1 
IF 

PART_C0UHT>5 THEN PART_COUNT=l 


RETURN 

FI 

ERK0R=ADR_EDIT RE_EDIT() 

I 

IF 

CONSOLE-6 THEN 
X-14 LINEO-O Y=8 S=0 
DO 

S— +1 

FOR 1-0 TO 8 
DO 

X“tl POSITIOH(X,Y) PRINTC") 
POWER-LOOKUP (X) 
BIT=LOCATE(X,Y) 

IF BIT-170 OR BIT=42 
THEM LIHEO—+POWER FI 
OD 


DEFINE CHARACTER 3 
IF PART_COUNT»l THEN PART’71 
ELSEIF PART_C0UNT=2 THEN PART=70 
ELSEIF PART_C0UNT=3 THEN PART=96 
ELSEIF PART__C0UNT=4 THEN PART’Sl 
ELSEIF PART_C0UHT=5 THEN PART=69 
FI 

POKE(RAKSET + (8*PART) + S-1,LI1JEO) 

POSITION(X,Y) PRINTC 11,1 ) 

POS ITION ( X+ 1 , Y ) PRINK" ") 

PRINTBE(LINEO) LINEO-O 
Y==+l IF Y>15 THEN S=0 EXIT FI 
X-14 
OD 

POSITIOIlC 15,8) PRINTC") 


IF KEY0255 THEN CHANGE COLORS 
IF KEY=14 THEM ADD=1 

ELSEIF ,CEY=1 5 THEN ADD— 1 

FI 

IF KEY=50 THEN R0 — +ADD 

ELSEIF KEY=31 THEN R1==+ADD 
ELSEIF KEY=30 THEN R2==+ADD 
ELSEIF KEY- 2 6 THEN R3 ==+ADD 
ELSEIF KEY=24 THEN R4—+ADD 
ELSEIF KEY=28 THEN COLORS () 

FI 

XEY=255 

THEN PRINT REGISTER CONTENTS 
POSITIOtiCO , 21 ) PRINTFC 
LI %1 %1 %I %l 

R4 ,R0 ,R1 ,R2 ,R3 ) 


OD 

RETURN 


PROC DOC READER () 

BYTE LINECOUNT,KEY=764 
BYTE ARRAY FILELINES<256) 
POKE(32 , 1 ) 

DO 


ERROR=ADR_MAIN ; if there 
;PROC Error will restart 
CL0SE( 2) 

OPEN ( 2 , "D1 : FLITTER.DOC" 
DO 

GRAPHICS(O) 

SETCOLORCl ,5,8) 

SETCOLOR( 2 ,9,8) 

SETCOLOR(3 ,13,8) 
SETC0L0R(4 ,0 ,0) 

ANTIC4 0 


is a disk error 
the program 

4,0) 


POINT ANTIC AT RAMSET 
POKE( 756 .RAMSET/256 ) 
POSITION( 1,23) 

PRINT( 'space bar for text 


option for menu") 


POS ITI0N( I ,0) 

FOR LINECOUNT-O TO 20 
DO 

INPUTSDC 2, FILELINES) 

PR INTEC FILELINES) 

IF EOF( 2) <>0 THEN EXIT FI 
OD 

KEY-255 

DO 

IF KEY-33 THEN EXIT 

ELSEIF COIiSOLE=3 THEN CL0SE(2) 

ERROR =ADR_KA IN RE IIAIN() 

FI 

OD 

IF EOF C 2 ) <> 0 THEN EXIT FI 
OD 
OD 

RETURN 


PROC TITLEC ) 

BYTE S 
CARD FLASH 

POKEC 77 ,0) ; disable ATTRACT mode 
POKE ( 566 jl43);disable break key 
POKE( 567 , 231 ) ; (new OS only) 

SS a '’'" ,,,! ' ■» — 

easy_default_valuls ( ) 


U1 


FL. I TTERBUG 


rUSK-4000 

;DC 

por- rn o;.( c,o) 
tuil-ccc) 

PUTDI- (6 ) 

PE.INTDi,( 6 " ****************** lt ) 


prii:tde(6," * *") 

* *") 

prat;iDi:(6 , " * flittereug *") 

Viai'TDiXb * *") 

PRIKTUE(6," * source code *") 

PRINTDi:(6," * available *") 

FRINTLL(6," * *") 


PRINTDE( 6 " ******************" ) 

PUTDEC6) 

rraiiTDE(6 , " action, i compiled") 

FUTDE(6) 

PRIKTDE(6 , 11 SAN LEANDRO") 

PUTDEC6) 

PRIKTDE(6," COMPUTER CLUE”) 

PUTDE(b) 

peii:tde(6," JIM 'WARREN") 

SCTCOLOPC 3 , 13 ,6 ) ; lower case inverse 
; color 

£ETC0L0R( 1 , 5 ,6 ) ; lover case non-inverse 
; color 
DO 

POD 1=0 TO FLASH DO OD ; j; ,- t ! .a a is fc the 
jdifficulty o£ levels with a speed 
;change for sound and flash 
POSITION ( ( 21-HARLLIKE(0 ) )/2 , 20) 
jeeuter hardline.. KARDLINE(O) is length 
;of HARDLINE ... 21 width of screen... 
PRINTDE(6, HARDLINE) 

SETC0L0F.( 2 , S , 8) ; upper case inverse 
; color 

SETC0L0R( 0 , 2 , S ) ; upper case non- inverse 
;color 

SOUR'D (0 ,S + 3 ,10,3) 

SOUND ( 1,S+115,10,5) 

SOUKD(2,S,10,3) 

SOUND (3 , S+80 , 3 ) 

S — 2;ueed to vary sound and color 
IF 

CONSOLE-G AND OPTION-3 THEN 
sndrstO optioi:=o docreaderO 

ELSEIF CONSOLE-6 THEN 
REQU I RED -H I N IMUM_E GG S 
RETURN 
FI 

IF CONSOLE-3 THEN 

OPTION— +1 ; counter for sequential 
;step thru of options 
DO UNTIL CONSOLE <>3 0D;slow down 
;the console respcnce 


IF 

OPTION-] THEN' 

BIC_BOY_BIRTH_RATE=100 

EATLL_BIRTH_RATE-200 

MINIKUK_EGGS=35 

HARDUNE-"herd" 

FLASH- 1000 
ELSEIF 

OPTIOli-2 THEN 
BIG_BOY__BIRTH_RATE=25 
EAT L K_B I RTH_RAT E - 5 0 
M I K I HU M_E GG S = 5 C 
HARDLINE“"f At ChAr.Ce" 

FLASK-0 

ELSEIF 

OPTION- 3 THEN 
HARDLINE="docuinfcnLat ion" 
FLASH-10000 
ELSEIF 

OPTION-4 THEN 

EA S Y_D E F A ULT_VA LUES ( ) 

FLASK-4000 

0PTI0N=0;reset option sequence 
POSITIONS, 20) 

PRINTDC6," ") 

FI 
FI 
OD 

RETURN 


PROC EKDLEO 

SNDRSTO SETCOLOR(2,0,0) 
GRAPHICSC 17 ) 

POSITIONS, 3) 

PRINTDE(6, "extinct ion") 

POS ITI0Ii(4,6) 

PRIIJTD< 6, "GENERATION ”) 

PRINTCDE (6 ,GEKERATI0N+1 ) 

PUTDE ( 6 ) 

PRINTD(6 , " EGG TOTAL ") 

PRINTCDE ( 6 , TOTAL_EGGS ) 

PUTDL(6) 

PRINTD( 6 , " REQUIRED ") 

PRINTCDE (6, REQUIRED) 

PUTDEC6) 

PUTDE (6 ) 

PRINTDE(6 , " OPTION") 

PUTDE(6 ) 

FRINTDE(6," change difficulty") 
PUTDE(6) 

PUTDE ( 6 ) 

PRIKTDE( 6 , " 

PUTDE(6) 


START") 


C/1 

00 


PRINTDE(6 , " resume same status") 
REQUIRED-MIL IMTJK_EGGS 
DO 

IF CONSOLE-6 THEN 
HUE-0 TIKE-1500 GENERATIOK-O 
ANNA_KATE=5 BACKGROUND-80 
SETUP () 

EXIT 

ELSEIF CONSOLE-3 THEN 
- ERROR-ADR_MAIN 
REJiAIKO 
FI 
OD 

POKE ( 756 , RAMSET/256 )NI BYTE OF RAMSET 
RETURN 

PROC WINNER ( ) 

SNDRSTO C0L0RSAO 
PRINT ("> 


the winner 


DO 

SCREEKJEGC=PEEK(SCREEK+I) 

IF 

SCREEN_EGG=192 THEN 
T0TAL__EGG£==+1 
FI 

OD 

IF; insufficient eg £ s for survival 
;uuch more than 50 is very hard 
;(for me anyway!) 

T0TAL_E GGS <MINIMUK_EGGS THEN 
ENDLEO 

ELSEjif sufficient eggs 
idecrease time, go to next generation 
GENERA T I ON— + 1 

IF GEKERATION-8 THEN WINNER () FI 
EDITO 

TIME-1 500-200*GEKERATI ON 
IF TIKE<500 THEN TIKE-500 FI 
ANNA_HATE=5 ROWS-23 
HUE==+1 BACKGROUND-— I SETUP() 

POKE( 756 , RAMSET/ 256 )KI BYTE OF RAMSET 

FI 

RETURN 


the end 


select") 


DO 

IF 

CONS OLE =5 THEN ERROR -ADR JMAIN 
RE_MAINO 
FI 
OD 

PROC C0UNTJEGGSO 

IF;old age sets in, count eggs & moss 
TIKEC-0 THEN TIKE-0 , 

T0TAL_EGCS“0 
FOR 1-0 TO 960 


PROC LOOK_MATE ( ) 


i CALL AND TESTS FOR EATER 
MATE_BIRTH-=+l 

IF MATE_BIRTH>MATE BIRTH RATE 
THEN 
IF 

COLUMNS -MAT E_C0LUMKS AND 
R0V,’S-KATE_R0WS THEN MATE BIRTH-0 
MATE_STINGO 
FI 

IF ANNA_HATE-3 THEN 
; blank out the old KATE 
ipos it ion cursor for printing new 
; EATEK 

POSIT10N(KATE_C0LUHNS,HATE_R0US) PRINT(" 

POS I TI ON’ ( MATE_C0 LU1IN5 , MATE_R0WS - 1 ) PR I i;t ( 

MATE_COLUKNS>34 OK MATE ROWS <2 
THEN 

MATE__C 0 LU ! 3 1 S = 5 
MATE_R0V;S-RAW)(20) 

FI 

MATE_COLUMNS-=+l MATE ROWS — 1 
MATE ( ) 

FI 

MATEO 




F 7 ! — I TTE RBUG 


IF J ATL'_BI1'TH=0 THEN SNDRSTO FI 
FI 

RETURN 


PROC L001’__L/’.TER ( ) 

; CALL ALP TESTS FOR EATER 
EAT E K _L i RT K = = + 1 

IF eateljbirth>eater_birtk_rate 
THEE 
IF 

COLUMNS =EATEK__COLlj K1!S ALT) 
RONS=EATER_ROVS THEN EATER_EIRTK=0 

sting () 

FI 

IF ANUAJ1ATE=3 THti. 

; blank out the old EATER 
; position cursor for print inc new 
; EATER 

pos itio:;( eatlr__colum:s , eaterjious ) 
frikt(" ") 

EAT L R_C OLU LI ! S ==+ 1 

IF 

EATER_COLUt.T-S >34 THEE 
eaterj:olu:;ns=o 
EATEi __RONS=RAKD(22 ) 

FI 

EATER () 

FI 

EATER C ) 

IF EATER__£IRTH-0 TREK SNDRSTO FI 
FI 

RET URL 


B1G_BCY_C0LUKNS<1 thel 
BIG_BOY_COLUMNS=34 
E IG.. BOY RO\,'S=FAND ( 22 ) 

FI 

BIG__fiOY( ) 

FI 

BIC_B0Y ( ) 

IF BIG_BCY„EIRTH=0 THEN SNDRSTO FI 
FI 

RETUEL 


Pf.OC MAIL'O 

A£P_KAIN=HAIN 

ADR_EDIT=EDIT 

ADR_BUG=BUG 

SNDRSTO TITLEO 
eetufO 

POINT ANTIC TO NEW CHAR SET LOCATION 
(this will have to be done after 
GRAPHICS ( ) calls and...? 

POKE (7 56 ,RAKSET/ 256 )U I BYTE OF RAKSET 

DO; START THE INFINITE GAME LOOF 

COUNT_EGGS() 

LOOK_BIG_BOY() 

LOOK_EATER() 


PROC LOGK_BIG_EOY() 

; CALL ALT) TESTS FOR BIG_BOY 
EIC_E0Y_B1RTK==+1 

IF E1G_B0Y_31RTN>BIG_B0Y_BIRTH_RA.TE 

THEN 

IF 

COLUMNS -El G__B 0 Y_C 0 LU Mil S AND 

ROV: S = B I G_BO Y_ROW S THEN B I G__B0Y_B1 RTH =0 

ST1NGC ) 

FI 

IF ANNAJ1ATE=3 THEN 
; blank out the old B1G_B0Y 
; pet i t ion cursor for printing new 
;EIG_BOY 

POS IT I ON ( BI G__B0Y_C0LUHNS , BIG_BOY_ROWS ) 
PKINTC" ") 

El G_BOY_CO LUKES’^- 1 

IF 


LOOK_MATE() 

bug() 

OD;EKD GAME LOOP 
RETURN 

PROC POKE_A_CHAR() 

LEFT SHIFTED FOR ANTIC4 DISPLAY 

BYTE ARRAY 

ZER0(9)= 

[0 4G 204 204 204 204 48 0), 

ONE ( 9 ) *=• 

[0 48 240 48 48 48 252 01, 

TYO( 9)* 

[0 252 204 12 48 192 252 0], 
THREE( 9)“ 

[0 252 12 60 12 12 252 0], 

FOUR( 9)“ 


0] 


10 204 204 204 252 12 12 o) , 
FIVE(9)= 

(0 252 192 252 12 204 252 0], 
SIX(9)= 

[0 252 204 192 252 204 252 0] , 
SEVENf 9) = 

[0 252 12 48 48 192 192 0], 
EIGHT ( 9)= 

[0 252 204 252 204 204 252 0], 
NINE(9)= 

[0 252 204 252 12 12 12 0], 


[0 204 204 204 204 -'OR 
V(9)=- 

(0 204 204 204 204 48 4S 0] 

W ( 9 ) c 

[0 204 204 204 204 252 204 C] 
X(9) = 

[0 204 204 4S 48 204 204 Oi 
Y( 9) = 

[0 204 204 60 48 240 192 0] 
2(9) = 

10 252 252 12 48 192 252 0J 


SKIP :;<■=>? 0 
A( 9 ) = 

[0 48 252 204 204 252 204 0], 
B(9) = 

[0 252 204 252 204 204 252 0] , 
C(9) = 

[0 252 204 152 192 204 252 0], 
D(9) = 

[0 240 204 204 204 204 240 0] , 
E(9) = 

[0 252 204 240 240 204 252 0] , 
F( 9) = 

(0 252 192 240 192 192 192 0], 
G(9) = 

[0 252 192 192 204 204 252 0], 
H(9) = 

[0 .204 204 252 252 204 204 0] , 
IEYE(9)= 

[0 252 48 48 48 48 252 0] , 

J(9) = 

[0 252 46 48 48 48 240 0J, 

K(9) = 

10 204 240 240 252 204 204 0], 
L( 9)“ 

[0 192 192 192 192 192 252 0], 
K(9)« 

[0 204 252 204 204 204 204 0] , 
N(9) = 

[0 192 252 252 204 204 204 0], 
0(9) = 

[0 48 204 204 204 204 48 0 J , 
P(9) = 

[0 240 204 204 240 192 192 0J, 
Q(9) = 

[0 48 204 204 204 240 60 0] , 
R(9) = 

[0 252 252 240 252 204 204 0], 
S(9) = 

[0 252 252 192 252 12 252 0], 
T(9)- 

[0 252 252 48 48 48 48' 0], 

U( 9)“ 


FOR 1=0 TO 79 
DO 

POKE(RAMSET+(8*16)+I ,ZER0(I)) 

OD 

FOR 1=0 TO 208 
DO 

POKE(RAJ:SET + (8*97) + I,A(I)) E*33 FOE L-PFEECA 


RETURN 

PROG KL L0 CAT E__C EARS ET( ) 

BYTE RAMT0P= 106 , R01 IS ET 

ALLOCATE SAFE RAM 
RAMT0P-=-5 GRAPHICS (0) 

LOCATE FIRST CKAPvACTER 
FjU[S£T=(RAMT0P+1 )*256 
COPY CHAR SET 
FOR 1=0 TO 1023 
DO 

ROMSET=FEEK(57344+I) 

POKE(RAh’SET+I , RON'S ET) 

0D 

POINT ANTIC TO LEV.' CHAR SET LOCATION 
(thie will have to be done after 
GRAPHICS ( ) calls and...? 

POKE (7 56 ,RAHSET/ 256 )K1 BYTE OF RAMSET 
P0KE_A_CHAR ( ) 

HAT.NO 

kETURli 



BL-PCKJ^CK 


************************************ 
* * 

* Frank’s Blackjack Program * 

* Version 3 Rev. ft * 

* 10/4/84 * 

* * 
************************************ 


; ABC I I position of suits 

DEFINE HEPRT="5’ 1 
DEFINE CLUB="«8S U 
DEFINE DI AM0ND=”7” 

DEFINE BPADE= " *88" 

BYTE De It, 

HldCnt, 
t i ck=£0, 
tock=19, 

RowCrs=*54, 

ChBase**2F4, 

CH=*2FC, 

GPr i or=*26F, 

DspFlg=*2FE, 

BkGrnd=»*2C8, 

AUDC1=*D2®1, 

ChCtl-*D401, 

VScrol=*D405, 

WSync*=*D4®A 

INT F'lrBank= C200D , 

PI rBet = C0J 

CARD OldMernHi, 

5avMsc=*58, 

Co 1 Crs»*55, 

VdsLst **200, 

MemH i =*2E5, 
DList«=*230 


(Deck counter 

(Dealers hold card 

(Part of real time clock <lsb) 

; " " (hsb) 

; Cursor row posi t i on 

; Character base address 

(Last key hold location 

(Play er/playf i eld pr iority control 

(Control character display flag 

(Background color 

(Sound control for channel #1 

( Char act er control 

(vert ical scrol 1 control 

( Wa i t for sync contro 1 

(players bank (Yes, you Can owe! ) 
(players bet 

( Temp hold for old memory high locat ion 
(Points to start of screen data 
(Cursor column position 
(Display list interrupt vector 
(Highest usable memory location 
(Points to start of display list 


BYTE ARRAY NwChar, (Address of new chatcer set 

Color(3)-=*£CA, (Color regsisters 
Deck (52), (The deck 

HoldCrd <*20> , (Cards still in play array 

(The following array describes the card face 

CrdBrd=t 0 *7E *7E *7E *7E *7E 
*7E *7E *7E *7E *7E *7E 
*7E *7E *7E *7E *7E *7E 
*7E *7E *7E *7E *7E 3, 


(The following array describes the card back 


CrdBck* E*FF *FF *FF *FF *FF *FF 


*FF *FF *FF *FF *FF *FF 
*FF *FF *FF *FF *FF *FF 


*FF *FF *FF *FF 1, 

(The player 'POP-UP* displays 

PI rL ine=" pi ayer " , (Type in " player. 

BetLine = "bankbet 11 (Type in bank bet 


(Note: The periods in the two comments above 
(designates the entering of * CTL , ’ 

; Cthe heart char. 3 

CARD POINTER PLAddr (General pointer for direct screen changes 

BYTE ChRfl=C13 (Character reflect status byte [set to off! 

TYPE WHO=CBYTE Cnt, (Player and Dealer play status 

Ace (record description 

INT Amt 3 

WHO Dealer, (Dealer's status record 

Player (Player’s record 


s 


PROC HBlnk«*(> 

( Hor i z. i nt errupt sevi ce rout i ne. 

( Routine ’FLIPS’ the characters 
( upside-down and rightside-up at locations 
( on the screen selected by ’SetHBlkO’. 

; Has to be straight code block for speed 
( and possible add it ions later. 


E*4B 

•AD ChRfl 
•49 3 
*BD ChRfl 

•A 

•SD WSync 
*BD ChCtl 
*68 
*40 
3 

RETURN 


Pha 

Lda ChRfl 
Eor #3 
St a Ch*fl 
As 1 A 
St a WSync 
St a ChCtl 
P 1 a 
Rt i 


PROC SetHBlk (BYTE line) 

BYTE POINTER Bp 

(SetHBlk sets the *HORZ.’ interrupt in the display list 

Bp-DList Bp«“+1 ine 
Bp*»+4 Bp^“-%*Q0 


RETURN 


(Compute DL line position 
(Bet a Hoz. Interrupt 


Dl PCK J" £3 0 1< 


RETURN 


PRQC Timer (BYTE Sec) 

CARD T i me= 1 9, 

D 

; Just as it is called, do a timed delay 
D=Sec*60 T ime=0 

WHILE t i ck+256*t- ock <D (X Seconds or D jiffies delay 

DO 

□ D 

RETURN 


PROC ClrTableO 
BYTE c 

BYTE POINTER Bp 

(This procedure clears the table, the hold card array 
;and both the dealer’s & player status 

FOR c=0 TO 3 
DO 

PMC 1 ear ( c ) 

OD 

&p=SavMsc+£l Zero (Bp, 160) 

Bp==+240 Zero(Bp, 160) 

Zero (HoldCrd, 3c!) 

Zero ( Dea 1 er, 4 ) 

7 er o ( P 1 ay er , 4 ) 

RETURN 


INT FUNC CrdAmt ( BYTE Who, Crd) 

WHO POINTER Cr dr 

;This Function updates either the player’s 

;or the dealer’ s play status and returns their card count 

IF Who THEN (whose play? 

Crdr=Dea 1 er 
ELBE 

Crdr=P 1 ayer 
F I 

IF Crd= 1 THEN (Test for Pees 

Crdr. ftce x =+l 
Crdr. Amt == + 1 1 

ELSE I F Crd=0 OR Crd>=10 THEN 
Crdr . Amt ==+ 1 0 (Got a ten or a face card 

ELSE 

Crdr. Arnt^=+Crd 
FI 


IF Crdr . Arnt ) 2 1 THEN 


(Test for over £1 


count 


IF Crdr. Pee THEN 
Crdr. flce==-l 
Crdr. Pmt==-10 
ELSE 

Crdr. Prnt - = * — i 
FI 

FI 

RETURN (Crdr. Pmt ) 


l over, [jot any aces? 
;yes, deduct usable ’ 1’ 
(decrease count 

(OPPS. . send BUST 


BYTE FUNC CrdClr (BYTE Value, Crd) 

(This f unct ion determines the card 
(color and returns the offsetted value 

Crd— =*& 1 

IF Crd THEN 

Value==+*90 (Odds are black 

ELSE 

Value==+*10 (Evens are red 

FI 

RETURN (Value) 


PROC CrdF 1 i p ( BYTE Who) 

CARD X , Y 

; CrdFlip puts the card face display on to 
; the screen. The position is determined 
; by whose pi ay it is and the number of card 
( they presently have. 

IF Who THEN 

X= (Dealer. Cnt &3 ) *404-52 
Y= ( Dea 1 er . Cnt &*FC ) +27 
Who=Dealer. Cnt 
ELSE 

X= (Player. Cnt &3 > *40+52 
Y= (Player. Cnt&*FC) +79 
Who=Player. Cnt 
FI 

Uho==&3 (Select a P/M reg. 

PMCreate (Who, CrdBrd, £E, 4, X, Y) 

RETURN 


CARD FUNC CardPos (BYTE Who) 

CARD X, Y 

CARD ARRAY XPos-CB 11 16 £13, 

YPo»-C£ 3 43 O 

I-* 

( CardPos calculates the position to display 
( the card value and suit. The display address 
; is returned to the cal ler. 


BLACKJACK 


PRQC Wait < > 

WHILE Peek (784) -235 
DO 

(wait f or a key «trok# 
OD 

Pokt (764, 253) 

RETURN 


PROC Rot at • ( BYTE speed) 
BYTE Co 1 our»*D0 1 9, 
VCnt=*D40B, 
c, w, v, nc= £01 
CORD Time- 19 

T i me-0 
DO 


FOR w-0 TO spaed 
DO 

c»nc 

DO 

WSync-0 
Colour»c 
e — +1 

UNTIL VCnt ft 1 28 
□D 
OD 

nc— +1 

UNTIL tick+256*tock> 300 
OD 

RETURN 


PROC Initialized 
CHAR c 

BYTE ARRAY Revr~ C5 10 21 25 J (Lina to sat Horz. Intrr, 

BYTE POINTER Bp, Bpl 
CARD POINTER Cp 

Graphics ( 1+16) 

BkGrnd-*86 Color (0)-*4£ Color ( 1 ) **86 (set background and 
Color <2> -0 Color < 3) «*D6 (play field colors 

Bp—DList Bp«--2 (Position pointer for D/L mod. 

FOR c*0 TO £ (Move D/L down £ Bytes 

DO 

Bp^**70 (Twentyfour blank lines 

Bp— +1 

OD 

DLi»t="-2 I Reset Display List location 

Bp-DList Bp==+3 
Bp''=**47 
j3p=«+3 Bp r% =6 
Bp*»+1 Bp^=6 

Cp-DList Cp--+4 


(This routine is ALMOST the ^rolor shifting 
(color procedure found in the ACTION! manual 
(called ’ scrollcolonO ' , it has the addition of 
(a timer and the ability to vary the scroll spaed. 


; Gr. 2 W/ LMS 
(Switch back to Gr. 1 


o> 

to 


Cp^*SavMsc 



Bp— +10 Cp-Bp+1 PLAddr-Cp 

Bp^-*67 Cp^-PlrLine+1 

Bp««+3 Cp—^ +3 

Bp^-*46 Cp^-SavMsc Cp^=«*+£20 

Bp— +15 Cp«+15 Bp^-*41 Cp^-DList 

( 0r. 2 W/ LMS ft Vert. 

;Go back to Gr. 1 
(Close off DList 

Scrol 1 

VdsLst-HBlnk 

(set Horz. Interrupt 

vect or 


I The following rout ina waits for a vert ical blank 
I i ntarrupt , then will enable the horizontal 
1 interrupt service routine. 

(Though it was written as a code block for clarity, 

( it could have been written in ’ ACTION’ . 

C 

•AD «F *D4 
*29 *40 
*F0 *F9 
*AD *E *D4 
9 *80 
*8D *E *D4 

1 

0 1 dMemH i -MemH i MemH i — *D00 ; Compute 1 ocat i on for new Char, set 

NwChar-MemHi &*FF00 

MoveBlock (NwChar, *E000, *800) (Move down the character set 

MoveBlock (NwChar+40, *E000+512, 8) ; Move speci f ic char act ers to 

MoveBlock (NwChar+4B, *E000+640, 8) ;to differant location 
MoveBlock (NwChar+56, *E000+768, 8) 

MoveBlock (NwChar+64, *E000+984, 8) 

ChBase-NwChar RSH B (Reset CHR address 

PMGraph ics (2) BPr i or»* 1 4 
FOR c=0 TO 3 
DO 

PMClear (c) 

PMColor(c,0, 10) 

Set HB 1 k ( Revr ( c ) ) 

OD 

FOR c=4 TO 7 
DO 

PMC 1 ear ( c ) 

PMCreat e ( c, CrdBck, 21,4,0, 0) 

OD 

Pr intDE (6, " slcc") ; Inverse SLCC 

PrintDE<6, " BLACKJACK") ( Inverse BLACK std JACK 

Rot ate (3) 

C 1 ose ( 1 > Open ( 1 , " K : ", 4 ) 


Wait Lda NMISt 
And #*40 
Beq Wait 
Lda NMIEn 
Ora #*80 
Sta NMIEn 


BLRCKJ « O H 


IF Who THEN 

V=VPos ( Dea 1 er . Crit RSH £>*£0 
Who^Dea 1 er\ Cnt 
Deal er. Cnt = = ■* 1 
ELSE 

Y = YPc-s (Player. Cr,t RSH £>*£0+££0 
Who^Player. Cnt 
P 1 ay er . Cnt = = + 1 
FI 


(Calc. Dealer Y 


(Calc, player Y 


X=XPos (Who) 

X = = + SavMsc+Y 


RETURN <X> 


(Select a X posit ion 
;Calc. address offset 


BYTE FUNC DplCard (BYTE card,Who) 

BYTE i, 

Crd, Val ue 

BYTE ARRAY SU I T = C HEART CLUB DIAMOND SPADEJ , 
Face=C*lA *213 
BYTE POINTER Bp, Dpi 

; Dpi Card brings all the other display support 
; routines together. This does the P/M calls 
; and does the actual displaying of the 
; card value and suit 


Bp-CardPos (Who) 
Bp 1 =Bp+60 
CrdF 1 i p (Who) 


; Get display address 
(find bottom of old card 
(Put up card face 


FDR i =0 TO £ 


b C 1 ear bot tom of card 


Bpl^=d 
Bp 1 ==+ 1 
QD 


(Find new card bottom 


Val ue 3 card MOD 13 i ^Va 1 ue 
card==/ 1 3 
IF Value THEN 

IF Valuer 1C THEN 
Crd = CrdClr ( 1 , card) 

Bp 1 - = + 1 Bpl^=Crd Bp 1 ==-£ 
Bp' s =Crd Bp==+1 Value=0 
ELSE I F Valued THEN 
Val ue=*l 1 

ELSE I F Value) 10 THEN 
Va 1 ue=Face (Value-11) 

FI 

ELSE 

Va 1 ue=*lB 
FI 


(Get card suit 
(Calc, card value 
;Is the card a king? 

(Is it a 10 

( Yes, do special display (£ char, not 1 ) 


(Is t i a ace 

(Yes 


(Face card 


(Its a king 


Crd=CrdC 1 r (Value, card ) 


(get color 



(Wait a constant length of time 


0 > 

00 


BLftCKJOCK 


o> 


; (approximately £ jiffies.) 

FOR Slow=0 TO 150® 

DO 

I 

OD 

RETURN’ 


PROC Resu 1 1 6 (BYTE Speed, Locate) 

; Display the results of the play < ie. 

I win, lost, bust or push) and rotate its color 

Rot ate (Speed ) 

Co 1 Cr s*Locate 

Pr i nt D <6, " " > 

RETURN 


PROC Busted () 

I Display * BUST* for either 
ColCrs*fl 

Pr int D (6, " bust " ) {inverse ’bust’ 

Results (3, 6) 

RETURN 


PROC FlipO 
BYTE c 

I * FLIP OVER’ Dealers card 

FOR c-4 TO 7 
DO 

PMMove (c, ®, 0) {Move missiles (back of card) off screen 

□D 

RETURN 


INT FUNC GetCrd (BYTE w> 

BYTE c 
INT H 

; GetCrd will get a card from the dealer 
; and display it. It will also place the card 
; into the ' IN PLAY’ array and have the 
( player/dealer status updated. 

C“Dea 1 ( ) 

HoldCrd (HldCnt ) -c 
c“Dp 1 Card ( c, w ) 

H=CrdAmt <w, c) 

HldCnt *= + 1 


INT FUNC DlrHandO 
BYTE c 
INT Hand 

WHO POINTER dealer 

t This is the dealer logic rout ine. 

( It goes by the fol lowing rules: 

; If the dealer has IE or less, or if 
; it has a soft 17, it must take a card 

dealer»Dealer 
Hand*dealer. Amt 

DO 

FI i p < ) 

IF (Hand) 0 AND Hand (17) 

OR 

(Hand* 17 AND deal er, Ace) 0) 

THEN 
Timer ( 1 ) 

Hand-GetCrd ( 1 ) 

Timer (1) 

IF Hand <0 THEN 
EXIT 
FI 

ELSE 
EXIT 
FI 

; Wait ( ) 

DD 

RowCrs* 1 
RETURN (Hand) 


INT FUNC PlrHandO 
BYTE c 

INT Hand ^ 

WHO POINTER player 

I This is the player prompt handler 
I It waits for a key to be pressed and 
l t est legit macy of the response. 

pi ayer*P layer 
Hand*pl ayer. Amt 

DO {Wait for key 

RowCrs*l£ ColCrs*® 

IF <Hand»10 OR Hand* 11) AND player. Cnt-£ THEN . 

PrintD(6, “STAND DOUBLEDOWN HIT" > (inverse ’STAND’ normal 

inverse ’HIT’ 

ELSE 

PrintD(6, " HITSTAND") (inverse ’HIT’ normal *’ invern 

FI 


(Turn the hole card over 
(Test for take card or not 

(Get a card 

(Oops dealer busted! ! 

(Got final hand 

(Return Final hand 


* DOUBLEDOWN 

’STAND’ 


RETURN (H) 


E* I— « C K « o K. 


DO 

UNTIL CH#£ 55 
□ D 

c=CH CH=£55 


c==&*3F 

IF c=*3E THEN 
EXIT 
F I 

IF c=*39 THEN 
Harid=GetCrd (0) 

IF Hand<0 THEN 
EXIT 
FI 
FI 

IF c«*3A AND <Hand=10 DR Hand=ll) 
AND p 1 ayer. Crit =£ THEN 
PlrBet«LSH 1 
Hand=GetCrd (0) 

T i rner ( 1 ) 

EXIT 

FI 

IF c“*lC THEN 
Hand=0 
EXIT 
FI 
OD 

Co 1 Crs«=0 RowCrt- 1 £ 


(Player pressed ’Esc 1 , wants to quit! 

(Want a card 

;Oops player busted! ! 

(Wants to double down 
(Status is ok, so get card 

(Likes hand , st ands 


" > 

(Return final hand 


( ’Scroll 1 scrolls the two 'POP-UP 1 prompts 

IF dir THEN (Going up 

FOR d*0 TO 15 
DO 

VScrol*=d 
Delay < ) 

OD 

EuSE 

FOR d=0 TO 15 
DO 

VScrol * 15-d 
Delay ( ) 

OD 
FI 

RETURN . 


: *r i nt D < 6, " 

~o 1 Crs*0 RowCrs*12 
RETURN (Hand) 


PROC Scro 1 1 ( BYTE dir) 
BYTE d 


(Going down 


PROC Get Bet (> 

BYTE c, i, j 

BYTE ARRAY BnkLn (10) 

; Get Bet handles the ent i re wager process 
I From clearing out the old bet, through getting 
; and offset the present bank display to 
( to getting the input, converting from ASCII 
; and test the input. 

DO 

(Clear & set offsets 

J = 1 

Zero (BetLine+7, 5) Zero (BetLine+15, 5) 

St r I (PlrBank, BnkLn) 

FOR c-1 TO BnkLn (0) 

DO 

BnkLn (c) «+*60 
OD 

SAssi gn (BetLine, BnkLn, 7, BnkLn (0) +7) 

(Do ’POP-UP’s 

Scroll(l) PLAddr^-BetLine+1 Scroll (0) 

(Get input and do convertion 

i«=0 

c«=Get D < 1 ) 

WHILE c#135 
DO 

IF c-*lB THEN 
PlrBet — 1 
RETURN 

ELSEIF c>«’0 AND c <»’ 9 THEN 
i ==+l 

BnkLn < i ) «c BnkLn (0)-i 
Bet L i ne ( i + 1 5 ) -c+*60 
ELSEIF c-l£7 THEt^ 
i — 1 

IF i> 10 THEN i-0 FI 
Bet Li ne ( i+16) -0 BnkLn (0)»i 
FI 

c-GetD(l) 

OD 

Scro 11(1) PLAddr^-P 1 rL i ne+ 1 Scro 11(0) 

(Test Input 
PlrBet-Val I (BnkLn) 

UNTIL PlrBet > 1 
OD 

RETURN 


BYTE FUNC IrtiurO 
BYTE i 

CARD Time»19 

8 


BL-fiCKJftCK 


; If the dealer is Ehowinfl an ace 
; better hit a key quick! ! 

Tirne=0 i-0 

Posit ior. (fc, 1 1 ) PrintD (6, "insurance? " > 
WHILE took <1 

( Only got 4 seconds 
DO 

IF CH#E55 THEN 
PrintD<£, "YES*') i-1 

Tirner(E) EXIT 
FI 
OD 

Posit ion <6, 11) PrintD (6, " *’ ) 

RETURN ( i ) 


PROC PlayO 
BYTE c, m, i 

INT Hand, DlrHr.d, PlrHnd, 

X , Y 

WHO POINTER player, 
dealer 

player-Pl ayer 
dealer-Dealer 

; Ma i n game logic... all others are ultimately 
1 called from here. 

(Start the game 
DO 

ClrTableO 
IF De It) 40 THEN 
Shuff le<) 

FI 

GetBet () 

(player wants to quit ! ! 

IF PlrBet <0 THEN 
RETURN 
FI 

(PI ace cover over dea 1 er hoi e card 

FOR m-4 TO 7 
DO 

PMMove <m, 1 17+m*5, £B> 

OD 

(Get the first 4 cards 

FOR HldCnt-0 TO 3 
DO 

c-Deal C ) 

HoldCrd (HldCnt)-c 
c*=DplCard (c, HldCnt & 1 ) 

CrdPmt (HldCnt & 1 , c) 

OD 

(Test for, and process * ACE SHOWING* 


i-0 

IF (HoldCrd ( 1 ) MOD 13>-1 THEN 
i - I nsur ( ) 

IF dealer. Pmt#21 PND i-1 THEN 
Posit ion (3, 1 1 ) Pr int D <6,’ M took i nsurance" ) 
T i mer <3) 

Posit ion ( 3, 1 1 ) Print D (6, " '* > 

P 1 rBank*==- (PlrBet RSH 1) 

FI 


(Go into standard play 
DO 

IF dealer. Pmt <£1 PND pi ayer. Prnt (£1 THEN 
Hand-PlrHand ( ) 

IF Hand-0 THEN 
RETURN 
FI 

IF Hand <0 THEN 
F 1 i p < ) 

Busted ( ) 

P 1 rBank— P 1 rBet 
EXIT 
FI 

Hand-DlrHand ( ) 

IF Hand <0 THEN 
Busted ( ) 

P 1 rBank«+P 1 rBet 
EXIT 
FI 
ELSE 
FI i p ( ) 

FI 

(Player got a BLPCKJPCK 

IF player. Pmt-21 PND player. Cnt-2 THEN 
PlrBet— LEH 1 ^ 

FI 

RowCrs— 1 2 
ColCrs-7 

(player wins! 

IF player. Pmt) dealer. Pmt THEN 
PrintD <6, "winner " > (Inverse ’winner* 

P 1 rBank— +P 1 rBet 

ELSE IF player. Pmt (dealer. Pmt THEN 

(Dealer BLPCKJPCK with insurance 
IF dealer. Cnt-2 PND dealer. Pmt-£1 PND i-1 THEN 
PrintD<6, "no bet " ) (inverse ’no bet’ 

ELSE 

(Player loses! 

Pr i nt D (6, " lost “> (inverse ’lost’ 

PI rBank— PlrBet 




FI 

ELSE 

|Ti* 

PrintD<6, M push ’’ ) 

FI 

Results (3, 7) 

EXIT 

OD 

Pos i t i on ( 3, 11) Pr i nt D ( 6, 
T imer ( 1 ) 

OD 

RETURN 


PROC Start ( > 

BYTE b, c, r 
BYTE POINTER Bp 

Initialized 

De 1 1 = 1 00 I St art Same Clean 

Posit i on (0, 0) 

Prir,tDE<£, " BY FRANK DANIEL " > (Inverse FRANK DANIEL 

Pr i nt DE (6, " CC3 19BA”) 

T i rner ( 4 ) 

Put D < 6 t 1 25) 

Color (l)-*44 
Play d 

;End of game reset memory and screen 

Graph ics (0) 

MernHi =01 dMemHi 
RETURN 


I inverse ' push* 


) 


FI.ITTER 


; BUG 

Tilt ACTION REJECTION INCURS I OR a 
IT.MDGM PROCEDURE CALLING METHOD 
J IK WARREN 

SAM LEANDRO COMPUTET, CLU E 
PUP-TOSE : to £ 1 low any procedure to 
call itself or ar.y other proceduri 
irrespective of it's order in the 
>P>1") 

IF 

;li coneolt'OPTION then set the 
;FX_CURSE fliiL call yourself 

coiiscLi >3 til;. :xj 3 ur.si>: gmeCV) 

ELSEIF 

; 1 1 cor.eo le'SELEORET >IS P>PR0>2”) 
IF 

C0US0LE-3 THEN ERR0I>ADR_0HE 
RE_0NE("2") RE_PEAT TWOC’R") 

ELSEIF 

CONSOLE'S THEN RE_PEAT TV0("2") 
>3") 

IF 

COHSOLE'3 THEN ERR 0 R *ADR_01 ; E 
RE_0NE( "3 ") RE JP EAT THREE ("R") 
ELSEIF 

CONSOLE'S THE:; ERROR 'ADRJTWO 
RE_TWC( ,, 3 n ) RE_P EAT THREE ("R") 
ELSEIF 

CONSOLE'S THEN RE_PEAT 
ti:rel(” 3 m ) 

ELSEIF 

KEY'12 THEN ERROR =ADR_DIMC 
RE_DILG( ) RETURN 
FI 
OD 

RETURN 

PROC 'DINGO 
CARD I 

REjsr.F.or. 

SNDRSTO 
FOR I»0 TO 5000 
DO SOUND(0,25,10,8) OD 
SKDKSTC ) 

KEY' 2 55 
RETURN 

PROC SETUP () 

All of the pocedures above this one- 
ex c c p t the PX_x::x procedures cor. be 
shiiLec errour.d in any order. The 
RL_xxx procedures must be at the 
top of the list and the following 
address assi^nnenta must coiac at the 
very last (so that they will be the 


first s c actL.cn t r executed by the 
pro^ra:;.) . 

A D i ,_S Y S_ER L OR B ERR OP. 

al;,_oi;l'Oi:i 

ad:_tuo=tvo 

ADu_TEI;EE c TKREL 
ADR^D 1 NG c D I ii G 

PRIllT( "}") 

PORE ( 7 52 f 1 ) SETCOLClU 1,0,0) 

£ ETCCLOP. (2,13,6) 

OHEC'S") 

GRAPHICS (0) 

. PRINT C" 


RETURN THRU PROC SETUP 
TO THE MONITOR") 

PRINT ( " 

THE ACTION RE_ACTION RECURSION u 
RANDOM PROCEDURE CALLING METHOD 
JIM WARRLN 

SAL LLANDKO CGU?UTEI. CLUL 
PURPOSE: tc allow any procedure to 
call itsell or any other prc-cccure 
PRIMTC 

irrespective of it's order in t:.-; 
list while preserving the proper 
order of RETURNS and with lull 
parameter passing cupabiiitv. 
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160 POKE 208 , I : POKE 205,O:POKE 206,64: 
POKE 207,55:P0KE 203,128 

170 A — USRC1536? : POKE 562, 3: POKE 53775, 
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Second Annual , World's Only 

Hme Computing Fair 

PRESS RELEASE (For immediate publication) 

Home Computing Centers, Inc. 

296 Bay Fair Mall 115 Tanforan Park 
San Leandro San Bruno 


San Francisco, July 15, 1985 

The 2nd annual "Worlds Only Home Computing Fair" was announced 
today by Home Computing Centers, Inc., a retail specialty chain 
headquartered in San Bruno, California. When asked what 
distinguished this fair from the many others that have appeared 
in recent years, company spokesman, Dan Williams explained, 
"Well, the name of the fair tells most of the story. We have 
intentionally set out to create a 'non-techie' exhibition. 
There are an enormous number of people out there who either own or 
are thinking about buying a home oriented computer but who aren't 
in the least interested in hearing about bits, bytes and baud 
rates. They are really after a productive home appliance. 
They are waiting for someone to show them what you actually do 
with a home computer besides play games and balance your 
checkbook. That's the thrust of the fair." 

"A full spectrum of useful applications will be shown. We'll 
have a real cross-section of exhibitors ranging from computer 
makers to software houses, peripheral manufacturers and so on. 
There will be something for everybody. The new Atari and 
Commodore computers will be shown. People will get to see 
demonstrations and state of the art applications that are 
normally reserved for insiders at trade shows. It's all very 
exciting . " 

The fair will be held over the weekend of September 13-14-15 at 
Tanforan Park Shopping Center in San Bruno, California. 
Tanforan Park is a major mall located just south of San 
Francisco. Several dozen manufacturers, distributors and user 
groups have been scheduled to attend. For more information, 
interested parties should call Dan Williams at (415) 273-8881 or 
write to him in care of Home Computing Centers, Inc. , 296 Bay Fair 
Mall, San Leandro, CA 94578. Alternately, you may call Lew 
Moore at (415) 588-1201 or write to him in care of Home Computing 
Centers, Inc., 115 Tanforan Park, San Bruno, CA 94066. 
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September 13 th thru 15 th 

TANFORAN PARK SHOPPING CENTER • SAN BRUNO, CA 


BASIC XE" Gives Your Atari 130XE" All 
The Performance It Should Have Had In 

The First Place 



In the home computer races, the Atari 130XE stands out as a price leader. But using underpowered Atari 
BASIC ™ on this otherwise fine machine is like racing in the Indy 500 with half your cylinders missing. 

So don’t get left at the starting line with only half an “engine.” Change to the performance leader now! Buy 
BASIC XE from OSS, the only programming language designed especially for the Atari 130XE. 

Just look at what you get for one low sticker price: 


BEST MILEAGE: With over 60,000 more bytes 
for your programs, BASIC XE lets you use all the 
memory you paid for.* 

MORE HORSEPOWER: Run Atari BASIC pro- 
grams 2 to 6 times faster.* Even with its incredible 
power, BASIC XE is compatible with Atari BASIC. 

BETTER HANDLING: With auto line number- 
ing, renumbering, program cross referencing, 
English error messages, and more. 


CLASSIC DESIGN: Show off the sleek struc- 
tured style of your own programs when you use 
BASIC XE statements like PROCEDLTRE, 
IF.. .ELSE, and WHILE... ENDWHILE. 

FREE ACCESSORIES: Get over $100 worth of 
Atari BASIC options FREE when you buy BASIC 
XE: complete Player/Missile Graphics support, 
string arrays, DOS access, SORT commands, read- 
able listings.. .over 50 extras at no additional charge. 


■ If you’re ready to step up to real performance... YOU need BASIC XE now! 

■ If you haven’t written your first BASIC program... YOU need BASIC XE now! 

■ If you’re already a real pro in BASIC... YOU need BASIC XE now! 

■ BASIC XE may well be the best buy any Atari owner ever made. 


Optimized Systems Software, Inc. 

1221B Kentwood Avenue. San Jose, California 95129 (406)445-3099 



*Want to know more? Call or write for free brochure or ask your local dealer. 

Atari 130XE 7M and Atari BASIC'* are U.S. registered trademarks of Atari Corporation. 


